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UN NOUVEAU SOUFFLE 
POUR VOTRE POCKET . 


LOGICIELS POUR VOTRE PC 1500 


SOFT CALC 
SOFT 6RAPH 
SOFT STAT 
SOFT TEXT 
SOFT DRAW 
SOFT FONCTION 
SOFT EXTEND 
SOFT SYSTEM 
SOFT MIND 
6AME 1 et 2 


tableur professionnel avec graphiques. Utilisable sur imprimante parallèle . 
graphiques de gestion et scientifiques , neuf types de graphiques . 
traitement statistique des données avec représentation graphique . 
traitement de textes sur imprimante CE 150 et imprimante parallèle 
représentation graphique en trois dimensions , véritable mini CAO . 
tracé de courbes et de surfaces , merveilleux outil mathématique . 
extension de 70 fonctions au BASIC , une nouvelle puissance pour votre 1500. 
gestion d’une partie de la RAIÏ1 en disquette , indu un mini CALC et un éditeur. 
3 jeux utilisant les grands principes de l’intelligence artificielle . 
des jeux video en langage machine . un graphisme époustouflant 


LOGICIELS POUR VOTRE PC 1350 


FREE CALC 
FREE 6RAPH 
FREE STAT 
FREE TEXT 
FREE BASE 
FREE DRAW 
JEUX 1 et 2 
JEUX 3 
JEUX A 
JEUX 5 


tableur professionnel , possibilités de graphiques à l’écran . 

graphiques de gestion et scientifiques (nécéssite l’imprimante CE-515 P) . 

traitement statistique des données . compatible CALC et GRAPH . 

traitement de textes sur CE 126 P et imprimante série par l’interface 130 T . 

puissante gestion de fichiers avec possibilité de calcul . Compatible CALC 

représentations graphiques en trois dimensions (sur l'imprimante CE -515 P) 

ensembles de jeux vidéo , écrits pour la plupart en langage machine . 

les grands classiques , OTHELLO , mORPIOR et PUISSARCE 4 . 

jeux de dés et de cartes , découvrez chez vous les joies de LAS VEGAS . 

jeux de réflexion , miXALETTRE. HAR01, LOGISUITE, PERDU et PUZZLE . 


Tous nos logiciels sont livrés sur cassette audio 
avec une notice explicative détaillée . IIS sont 
disponibles chez votre revendeur SHARP, au 
CLUB DES SHARPENTIERS , dans les FNACS . 
aux NOUVELLES GALERIES et à EUROMARCHE. 


REVENDEURS 


contactez-nous 

au 

976 83 74 


{ Pour tous renseignements , contactez : 


AP SOFT Mr Pascal ABR1VARD 
1 bis rue du Printemps 78230 LE PECQ 
Tel. : 16 (3) 97683 74 


Vous pouvez aussi obtenir nos logiciels par correspondance 

Nom Adresse 


. Téléphone . 


□ SOFT CALC 

.. 200.00 FF 

□ SOFT GRAPH 

... 150.00 FF 

□ SOFT STAT 

. 150.00 FF 

□ SOFT TEXT 

. 150.00 FF 

□ SOFT DRAW 

... 150.00 FF 

□ SOFT FONC 

150.00 FF 

0 SOFT EXTEND ... 

. 200.00 FF 

□ SOFT SYSTEM ... 

... 200.00 FF 

□ SOFT MIND 

80.00 FF 

□ SOFT GAME 1 ... 

80.00 FF 

□ SOFT GAME 2 ... 

.. 80.00 FF 

□ FRAIS DE PORT 

15 00 FF 

□ FREE CALC 

...200.00 FF 

□ FREE GRAPH 

... 150.00 FF 

□ FREE STAT 

. 150.00 FF 

□ FREE TEXT 

.. 200.00 FF 

□ FREE BASE 

.. 200.00 FF 

□ FREE DRAW 

. 150.00 FF 

□ JEUX 1 

.. 80.00 FF 

□ JEUX 2 

.. 80.00 FF 

□ JEUX 3 

. 80.00 FF 

□ JEUX 4 

.. 80.00 FF 

□ JEUX 5 

.. 80.00 FF 

□ FRAIS DE PORT 

15.00 FF 


Cl- JOINT Francs par 


□ CHEQUE □ CCP 


□ MANDAT 


(Pour le 1350 contactez nous au préalable pour connaître la liste des logiciels disponibles ) 
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Etudiants, étudiantes, professeurs, profes- 
seurs, le sigle de notre couverture est le 
vôtre. Vous le retrouverez souvent dans 
votre établissement ou à la vitrine de votre 
point de vente SHARP. Lisez la page ENSEI- 
GNEMENT de ce numéro, réclamez votre 
chèque SHARP à votre prof' de maths ou de 
physique et profitez d'un prix exceptionnel ■< 
sur l'achat d'une calculatrice scientifique ou 
d'un PC. Et, si cet achat vous a complète- 
ment ruiné, retournez voir votre prof', 
demandez-lui de vous prêter le dernier bul- 
letin du Club ; il ne pourra rien vous refuser 
car, s'il participe à la CAMPAGNE ENSEI- 
GNEMENT SHARP, nous l'avons inscrit gra- 
tuitement au Club pendant 1 an. 
Justement, ce bulletin, comment le trouvez- 


vous ? Que pensez-vous du Club ? Aimeriez- 
vous qu'il vous apporte autre chose ? Notre 
ENQUETE SHARPENTIERS vous pose tou- 
tes ces questions ; soyez nombreux à y 
répondre. Nous tiendrons compte scrupuleu- 
sement, de toutes vos réponses et commen- 
taires ; iis détermineront les points particu- 
liers vers lesquels nous porterons nos efforts 
dans les mois à venir. 

Une information pour conclure : ce bulletin 
vous sera expédié le 20 février 1985 ; l'élas- 
ticité des délais postaux concernant les 
envois en nombre fait qu'il vous parvient 
entre 3 et... 25 jours après son dépôt. Alors, 
un seul conseil : patience ! 

A bientôt. 

S. BIZOIRRE 


CRITERIUM SHARPENTIER 

Les règles en sont très simples mais 
peuvent rapporter gros aux SHARPEN- 
TIERS courageux : 

1. Tout Sharpentier dont l'article, le 
programme ou l'astuce aura été publié 
dans le bulletin SHARPENTIER sera - 
d'office inscrit au club, gratuitement, 
pour une nouvelle année. 

2. A la parution de chaque bulletin, 
une main innocente tirera au sort l'un 
de ces auteurs qui gagnera ainsi un des 
plus récents produits SHARP. 

Le tirage au sort des auteurs du bulle- 
tin n 0 1 0 a été effectué le mercredi 3 
janvier 1 985. L'heureux gagnant est 
M. Bernard KOKANOSKI, auteur du 
SUPER BASIC pour MZ 700. Il gagne 
ainsi un PC 1260. 

Pour le numéro 1 1 , il y a un PC 1 350 
à gagner. A vos plumes... 


LE CLUB RECRUTE 

• La micro-informatique vous passionne 

• Vous avez des notions de secrétariat 
et de comptabilité 

• Vous avez le goût des contacts 

• Une ambiance sympathique n'est pas 
pour vous déplaire 

• Vous êtes disponible à temps plein 
rapidement 

• Vous habitez en région parisienne 


S. BIZOIRRE (833.93.44) 
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LA RECETTE DU TRAITEMENT DE TEXTES 
IDEAL 

1 / Munissez-vous d'une machine à écrire 
SHARP ZX400, ZX410 ou ZX330. 

2 / Reliez-la à une unité centrale SHARP préa- 
lablement équipée d'un programme adéquat en 
mémoire morte et de 32K ou 48K de mémoire 
vive. 

3 / Ajoutez, à votre convenance, 1 ou 2 uni- 
tés de disquettes 5 pouces. 

4 / Ornez le tout d'un moniteur vert SHARP 
1 2 pouces. 

Vous obtenez, ainsi, un système de visualisa- 
tion et de mémorisation de tous vos textes 
tapés à la machine. Très simple d'utilisation, 
muni d'une mémoire protégée, il ne nécessite 
aucun chargement de programme lors de sa 
mise en route. 

L'ÉCRAN 

L'écran affiche 20 lignes de 80 caractères pour 
visualiser le contenu de la mémoire exactement 
comme cela sera imprimé. Avec l'écran, la 
dactylographie devient plus agréable. 

LA MÉMOIRE CENTRALE 

La version de base comprend une mémoire de 
32 K qui peut être étendue à 48 K par un 
module d'extension de 16 K. 

Cette mémoire se répartit entre : documents, 
constantes et imprimés. 

PROTECTION DE LA MÉMOIRE 

Le programme, ainsi que le contenu des mémoi- 
res restent protégés en cas de panne de cou- 
rant ou lorsque la machine est hors tension. 
La durée de protection est de trois mois. 

MACHINE A ÉCRIRE 

Une simple pression sur M et votre machine à 
écrire retrouve son autonomie et ses propres 
fonctions. 

SUPPORT EXTERNE 

La version de base est équipée d'une station 
de lecture. En fonction de vos besoins, une 
deuxième station peut être installée. 
Disquette : 5 1/4" - simple face, double den- 
sité - 156 K. 

TROIS TYPES DE MÉMOIRES 
Mémoire de documents 

Cette mémoire permet de stocker des textes 


divers. La gestion de cette mémoire s'opère 
automatiquement et il est aisé de retrouver un 
document dans la mémoire de travail car celle- 
ci se feuillette comme un classeur. 

Les textes qui sont mémorisés sur disquette 
peuvent être appelés à tout moment. 
Mémoire de constantes 
Des textes répétitifs, tels que formules de poli- 
tesse, formules chimiques ou autres, peuvent 
être stockés dans cette mémoire et être trans- 
férés en mémoire de document. 

Chaque constante est identifiée pour être appe- 
lée et permettre de composer un texte à l'écran. 
Mémoire d'imprimés 

Cette mémoire permet de préparer différentes 
lignes format : marges, tabulations, longueur 
de l'imprimé, pas d'écriture, interligne, repère 
de positionnement (pour les formulaires). A 
chaque papier à en-tête ou formulaire utilisés 
correspondra un "imprimé". 

IMPRESSION 

Tout document affiché à l'écran peut être 
imprimé. Il est possible de demander l'impres- 
sion d'un texte de plusieurs pages à partir d'une 
page quelconque. 

IMPRESSION SIMULTANÉE 

Plus de temps perdu en attendant la fin de l'im- 
pression. Il est possible, alors que votre 
machine à écrire imprime, de saisir un nouveau 
texte à l'écran. 

LANGUES ET CLAVIERS 

La disquette programme a été conçue pour être 
utilisée en plusieurs langues. A vous de choi- 
sir la vôtre et de sélectionner le clavier corres- 
pondant à votre machine à écrire. 

FONCTIONS DE TRAITEMENT DE TEXTES 

Cet ensemble permet l'accès à différentes 
fonctions de traitement de textes. La visuali- 
sation à l'écran rend le travail plus agréable. 


Suppression et insertion de caractères, mots 
ou paragraphes 

Elles peuvent être réalisées en cours ou après 
la saisie, la machine redisposant automatique- 
ment et immédiatement le texte. 
Soulignement automatique 
Vous pouvez souligner un mot, une ligne, un 
paragraphe en cours ou après la saisie. La sup- 
pression d'un soulignement peut intervenir 
ultérieurement. 

Tabulation décimale 

Tout taquet simple peut être utilisé pour la fonc- 
tion décimale. L'alignement peut se faire au 
point ou à la virgule. 

interligne 

Il est possible, à tout moment, de modifier l'in- 
terligne. Un même document peut comporter 
différents interlignes. 

Centrage automatique 

Chaque ligne peut être centrée automatique- 
ment entre marge droite et marge gauche, 
avant ou après la frappe. 
Indices/Exposants/Caractères composés 
Très utiles pour les formules mathématiques 
ou chimiques. Ces fonctions sont affichées à 
l'écran par des symboles spéciaux. 
Justification 

La justification s'obtient automatiquement ligne 
par ligne ou bien sur l'ensemble d'un document. 
Celle-ci peut être annulée. 

Mise en page automatique 
A tout moment, la ligne d'information (marges, 
tabulations, longueur imprimé, etc.) peut être 
modifiée. 

Contrôle automatique du format 

En fonction de l'imprimé choisi, la composition 
des pages s'effectue automatiquement. Une 
nouvelle page peut être créée par vous-même, 
la machine opérant automatiquement la recom- 
position des pages suivantes. 
Recherche/Remplacement 
Un mot ou une partie de texte peuvent être 






recherchés automatiquement en une fraction 
de seconde et être remplacés par d'autres. 
Marquage de textes 

En délimitant des parties de texte vous pouvez : 

• Transférer un ou plusieurs paragraphes 

• Copier un ou plusieurs paragraphes 

• Annuler un ou plusieurs paragraphes 

• Justifier un ou plusieurs paragraphes 

• Mémoriser un ou plusieurs paragraphes sur 
disquette pour permettre un assemblage de 
textes. 

Défilement horizontal 

Pour obtenir, à l'écran, un affichage identique 
à l'impression de documents dont les marges 
sont supérieures à 80 caractères. 
Relocalisation 

Vous pouvez aller directement au début ou à 
la fin d'une ligne ou de tout le document. 

Fonction catalogue 

Cette fonction permet de connaître à tout ins- 
tant les titres des documents, constantes ou 
imprimés mémorisés. 

Fonction mailing 

Le programme permet d'introduire jusqu'à 1 00 
variables par fichier. 

Le tri automatique s'opère sur 10 clés de 
sélection. 


CARACTÉRISTIQUES 

• Micro-processeur Z 80 A - 4 MH 

• PROM 1 6 K pour logiciel du texte 

• RAM 32 K avec protection en cas de 
panne de courant extensible à 48 K 
•ECRAN de visualisation 12 pouces: 
20 lignes de 80 caractères. Caractères 
d'écriture de couleur verte 

• Matrice de caractères 7x14 dans un 
plan de 9 x 1 5 cm 

• Interface pour appareil à cassettes audio 
(480 signes/seconde) 



Au Japon, il s'appelle MZ 1 500, il fait déjà 
fureur, vous l'avez découvert de notre numéro 
9. La version européenne s'appelle MZ 800 
(seul un Japonais saurait vous dire pourquoi), 
elle adopte une couleur crème et un clavier où 
les caractères japonais ont été remplacés par 
les symboles graphiques bien connus des MZ 
80A, K et 700. 

Hormis la partie supérieure légèrement suréle- 
vée, la présentation extérieure du MZ 800 pos- 
sède un indéniable air de famille avec celle de 
son grand frère, le MZ 700 : même clavier, 
même disposition des touches de fonction et 
de déplacement du curseur. Cette ressem- 
blance confirme le souci de SHARP d'assurer 
une continuité matérielle et logicielle entre ses 
différents MZ ; continuité confirmée par le fait 
que le MZ 800 est compatible à 100% avec 
les logiciels conçus pour MZ 700. 

Alors, quoi de nouveau ? Tout, serai-je tenté 
de vous répondre car, au-delà de cette com- 
patibilité avec ses prédécesseurs, le MZ 800 
est une machine entièrement nouvelle, totale- 
ment repensée par ses concepteurs. La 
MEMOIRE, d'abord : les 64 Ko de RAM dispo- 
nibles en version de base supportent le BASIC 
et son moniteur et laissent 25 Ko aux program- 
mes de l'utilisateur ; ils sont complétés par un 
second moniteur en ROM et par un I.P.L. (Ini- 
tial Program Loader) permettant de charger et 
de lancer automatiquement un programmé à 
partir d'un support quelconque (cassette, quick 
dise ou disquette). Une dernière mémoire ROM 
se charge de gérer toute erreur due à l'utilisa- 
teur, et cela, quel que soit le langage utilisé 
(moniteur, basic ou autre langage). A la 
mémoire vive initiale de 64 Ko peut être ajou- 
tée une seconde mémoire de 64 autres Ko, 
appeléee RAM FILE. Elle remplit les mêmes 
fonctions qu'une cassette ou disquette, il est, 
en effet, possible de lire ou de stocker instan- 
tanément sur cette mémoire tout programme 
ou ensemble de données utilisables dans une 
application ; le transfert en mémoire centrale 
s'effectue en quelques millièmes de secondes. 
En version de base, 1 6 Ko de RAM sont ajou- 
tés pour gérer la mémoire écran ; cette 
mémoire vidéo peut être doublée, en option, 
pour augmenter les capacités graphiques du 
MZ. 

Si nous ajoutons encore 2 petits Ko de ROM 
pour générer les caractères, nous obtenons un 



système capable de gérer simultanément 
jusqu'à 176 Ko de mémoire pour une même 
application... Record absolu pour un micro- 
ordinateur individuel. 

Côté périphériques, le MZ 800 peut être con- 
necté à 3 types de mémoires de masse 
différentes : 

• Cassette standard avec système de transfert 
spécifique SHARP (1200 bauds) dont la fiabi- 
lité a largement fait ses preuves sur les diffé- 
rents MZ. 

• QUICK DISC adapté aux disquettes 2, 8 pou- 
ces double face de 2*64 Ko de capacité. Fia- 
ble, économique, rapide, le délai de lecture ou 
d'enregistrement n'excède jamais 8 secondes. 

Le QUICK DISC prend éventuellement la place 
du magnétophone sur le MZ. 

• Simple ou double disquettes 5 pouces ayant 
chacune une capacité de 280 Ko formattés . 
4 types différents d'imprimante peuvent fonc- 
tionner sous le contrôle du MZ 800 : 

• MZ IP 1 6 : Imprimante table traçante 4 cou- 
leurs sur papier de 1 10 mm bien connue des 
possesseurs de MZ 700. 

• MZ 80 P5 : Imprimante à aiguilles 80 colon- 
nes, 1 00 caractères/secondes capable d'impri- 
mer tous les caractères graphiques propres à 
la série MZ. 

• Toutes imprimantes au standard CENTRO- 
NICS, le MZ 800 d'origine possédant sa pro- 
pre interface CENTRONICS. 

• Toutes imprimantes au standard RS 232C 
grâce à une carte optionnelle intégrée au MZ. 

En résumé, 95% des imprimanttes actuelle- 
ment disponibles sur le marché sont connec- 
tables sur un MZ 800. 

Terminons ce chapitre « HARD » en précisant 
que le MZ 800 possède 2 connecteurs capa- 
bles de recevoir des JOYSTICKS compatibles 
ATARI (les plus courants) ; que la carte RS 
232C lui permet de dialoguer avec tout 
système informatique muni de ce standard de 
transmission et qu'enfin, il peut émettre ses 
images vers un téléviseur couleurs via une prise 
PERITEL ou vers un miniteur vidéo N/B. 

Mon crémier me le répète souvent : « Le HARD 
sans le SOFT, mon bon monsieur, c'est comme 
un repas sans fromage » ; heureusement, de 
ce côté, nous sommes également gâtés ; le 
BASIC IZ013 (vous l'auriez deviné) tient ses 
promesses et exploite à fond toutes les possi- 
bilités du MZ. Côté écran d'abord : l'affichage 
se fait sur 25 lignes de 40 ou 80 caractères 



en 16 couleurs possibles ; un caractère peut 
être affiché dans n'importe quelle direction et 
peut avoir une taille quelconque ; toute la sur- 
face de l'écran si vous le désirez. Le mode 
haute résolution permet d'adresser séparément 
640*200 points en 2 couleurs ou 320*200 
points en 4 couleurs. La mémoire vidéo sup- 
plémentaire permet 640*200 points en 4 cou- 
leurs et 320*200 en 16 couleurs. 

De nombreuses commandes basic permettent 
une infinie variété de créations graphiques qui 
ne sont limitées que par votre créativité et votre 
goût artistique. Ce goût artistique, vous pour- 
rez l'exploiter également dans un tout autre 
domaine, grâce au générateur sonore intégré 
au MZ. Celui-ci est capable d'interpréter votre 
partition sur 7 octaves et 3 voies séparées et 
simultanées. Un générateur de « bruits blancs » 
viendra ajouter les effets les plus divers à vos 
créations sonores et vous permettra les imita- 
tions les plus folles : mitrailleuses... tirs inter- 
galactiques... parfaite imitation des hurlements 
nocturnes de votre chère progéniture... etc. 
Côté efficacité, le Basic SHARP a toujours été 
un modèle de rapidité (boucle de 1 à 10 000 
en 7 sec.), il s'est orné d'un ELSE dans ses bou- 
cles FOR-NEXT et de nombreuses commandes 
utiles au programmeur comme, par exemple 
SEARCH qui permet de retrouver une chaîne 
de caractères dans un programme basic. Son 
gros avantage réside toujours dans le fait qu'il 
est logé en mémoire vive, ce qui permet, d'une 
part, de le modifier à volonté, ou, d'autre part, 
de le remplacer purement et simplement par un 
autre langage sans empiéter sur la mémoire 
utilisateur. 

De nombreux autres langages seront d'ailleurs 
très bientôt disponibles dont un LOGO spécia- 
lement développé par SHARP pour le MZ 800. 
Dernier point très important pour conclure ce 
chapitre SOFT : le système d'exploitation CP/M 
est dès maintenant disponible sur cette 
machine et lui permet ainsi l'accès à une mul- 
titude de programmes professionnels (utilitai- 
res, gestions de données, traitements de tex- 
tes, etc.). Les concepteurs du MZ 800 ont 
voulu un système fiable, performant, univer- 
sel, parfaitement adapté aux exigences sans 
cesse croissantes et diversifiées de ses utili- 
sateurs : gageons que cette recette assurera 
le succès amplement mérité auquel aspire le 
« petit dernier » de la gamme MZ. 
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technologique 
"■* service de 
iseignement. 

Pionnier des calculatrices scien- d'abord un tarif préférentiel sur 
tifiques et des micro-ordina- le prix de vente normalement 
teurs de poche, Sharp propose pratiqué sur 14 références et 
aux professeurs de maths et de options de la gamme Sharp spé- 
physique un programme ensei- ornement choisies pour leur par- 
gnement particuliérement faite adéquation aux cours ainsi 
adapté aux nouvelles méthodes que pour les enseignants une 
pédagogiques et à l'évolution inscription gratuite au club des 
permanente de la technique utilisateurs de micro- 
informatique. ordinateurs Sharp : le club des 

Ce programme accorde tout Sharpentiers. 


Le stand SHARP ENSEIGNEMENT au salon EDUCATEL 
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ENSEIGNEMENT 


Ce communiqué et son « logo », vous le retrou- 
verez souvent, si vous êtes professeur ou étu- 
diant, dans vos revues spécialisées. Au delà 
d'une banale campagne publicitaire, il confirme 
le désir constant de la société Sharp de ne pas 
se cantonner dans un rôle passif de fabriquant 
et de distributeurs de produits, si parfaits 
soient-ils, mais d'entretenir une politique dyna- 
mique de communications entre elle même et 
les différentes catégories d'utilisateurs de pro- 
duits Sharp. Ce bulletin n'en serait-il pas la 
preuve ? 

Ce programme enseignement répond à un 
besoin croissant du corps enseignant de nou- 
veaux outils fiables, performants, maniables, 
favorisant une ouverture d'esprit vers de nou- 
velle méthodes pédagogiques ; ainsi qu'à une 
volonté de rapprochement entre l'éducation 
nationale et le monde professionnel. 

Il concerne tous les professeurs d'enseigne- 
ment secondaire et supérieur de lycées, collè- 
ges, L.E.P. et I.U.T. 

EN QUOI CONSISTE CE PROGRAMME ? 

• Sharp a mis en place, dans toute la France, 
un réseau de points de vente privilégiés dispo- 
sant de tous les matériels, informations docu- 
mentations ; le « logo » Sharp enseignement 
les rend facilement reconnaissables. 

• Sharp enverra à tout professeur de maths et 
de physique un dossier très documenté com- 
prenant une explication détaillée du fonction- 
nement du programme enseignement, la liste 
des points de vente enseignement périodique- 
ment mise à jour, une documentation complète 
sur les produits micro-informatique et scienti- 
fiques Sharp et un carnet de chèques... 

• Les points de vente enseignement seront 
habilités, en échange d'un chèque enseigne- 
ment, à pratiquer un tarif très préférentiel sur 
l'achat de l'un des 14 produits concernés par 
le programme. Tout professeur ou élève, en 
possession d'un chèque enseignement peut 
bénéficier de ce tarif. 

• Le club des Sharpentiers offrira à tout pro- 
fesseur qui aura acquis une machine au tarif 
enseignement, un abonnement gratuit de 1 an 
au bulletin du club (6 numéros). 

Le programme enseignement n'est pas limité 
dans le temps ; il sera ponctué, au fil des mois, 
de nouvelles actions favorisant le contact entre 
SHARP et le monde de l'enseignement : con- 
cours, rencontres, échanges. Professeurs, vous 
êtes nombreux au club, pourquoi ne pas nous 
soumettre vos idées ? 



MICRO-ORDINATEURS 

PC 1246 
PC 1251 
PC 1260 
PC 1261 
PC 1401 
PC 1350 
PC 1500A 

PERIPHERIQUES 

CE 150 
CE 125 
CE 126P 


CALCUL 

L 531 
L 509 
L 506 P 
L 512 


ICES SCIENTIFIQUE 
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MZ 80 TF Manuel d'utilisation, en français du MZ 80 K très 

BAsS'mz 6 ' 11 6St Un,VerSel P ° Ur rensemble des 

MZ 80 A 100 F 

MZ 80 AT01 Cassette de conversion des programmes BASIC 

MZ 80 K en programme MZ 80 A. 70 p 


MZ 80 B 
MZ 80 MDB 
MZ 80 BD02 


MZ 80 BT03 

MZ 80 BD03 

MZ 80 GM 
MZ 80 G MK 

MZ 80 ABOI 


MZ 80 K 
MZ 80 1/01 
MZ 80 T20C 


i disquette + manuel Disc-BASIC SB 6510 

nécess res àf t0US les Utilitaires 

necessaires a la programmation en ASSEM- 
BLEUR , accompagnée d'un superbe classeur 
contenant plus de 300 pages d'explications. 

' Compilateur BASIC sur cassette avec notice à 
recopier sur la disquette F DOS 

te transmissions sons RS 232 oo CENTRONICS 
Carte mémoire graphique page 1 

® rap ^ 1 '^ ue P a 3 e ^ complémentaire 

programmes ' * 
BASIC MZ 80 K en MZ 80 B. 


Carte universel'e d'interface entrées/sorties. 
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I NOM ; 

ADRESSE 

Je passe commande de : 


■ ■ • PRENOM 


DESIGNATION 1 

_____ TTC 


TOTAL TTC 

bl! EdTdS bancair f ou C-C-P. éta- 

je serai intégralement remboursé du moZ £ Ssï ££' 


DATE 


• SIGNATURE 


BULLETIN DES ANCIENS COMBATTANTS 

(on les mémoires d'un fondateur) 

Aurais-je pu ne deuter en Pécédouzeonsutes dans la plus tard ce simple geste 

insérant, un beau matin de pochette du premier erdina- aurait permis d'abeutir à un 

1980, le premier bulletin teur portable du monde le résultat aussi magnifique que 

d'inscription au club des I SHARP PC-1 2 11, que 4 ans i l'est le club des Snarpentiers. 


En effet, que de chemin parcouru 
depuis les 4 pauvres feuilles photo- 
copiées de notre premier journal 
jusqu'à cette somptueuse revue dont 
vous vous délectez tous les 2 mois 

A ce propos je remercie Sylvain 
Bizoirre d’avoir pensé à rééditer les 5 
premiers numéros sous la forme 
d'une brochure. Voilà une très bonne 
idée qui permettra certainement à 
quelques unes de plus belles pages de 
la littérature française de ces derniè- 
j res années de passer à la postérité. 

| Bravo ! Et puisque j'évoque le nom de 
! notre cher rédacteur en chef, que de 
| chemin là aussi parcouru entre le 
: jeune passionné famélique qui rodait 
| dans les couloirs de chez SHARP à la 
| recherche d'un octet à ronger et le 


j dynamique animateur qu'il est 
j devenu, entouré d'une armée de 
| secrétaires et de rédacteurs dans son 
» somptueux bureau d'Aubervilliers, il 
| est la véritable tour de contrôle * de 
i ce club, symbole vivant de l'opulence 
! et de la réussite. Alors me direz-vous, 
| si la réalité est si plaisante pourquoi 
j avoir abandonné ce poste aussi con- 
| fortable ? Et bien parce qu'il faut 
| savoir retourner à ses premières 
j amours, (en ce qui me concerne, 
; c'est le commerce), lorsque l'on sait 


que la relève est assurée. Mon pas- susceptibles d'aider à la promotion 
sage au club m'aura au moins con- des Rockets dans ie monde du travail, 
forté dans une idée c’est que le véri- D'avance merci, 
table ordinateur de demain c'est le |A dans 4 ans. 

{ Pocket Computer (et là je suis j Didier Monternot 

j sérieux). 1 

j C'est cette idée que je m'efforce de 
I faire passer auprès de toutes les 
| entreprises, et à ce propos, je lance 
un appel dans ces colonnes afin que 
; tous les concepteurs de logiciels pro- 
. fessionnels me contactent dans le but 
1 de créer une banque de programmes 


RECTIFICATION 


Dans le numéro 1 j'annonçais 
la sortie du bulletin numéro 
2000 en mars 2231, je vous 
demande bien vouloir vous 
même rectifier les dates. 
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La tour de contrôle signale 
! un épais brouillard, au 
moment de la rédaction de cet 
article, entre le bureau de l'au- 
teur et celui du club... 



ENQUETE SHARPENTIERS 


Votre NOM : PRENOM 

PROFESSION (en précisant votre domaine d'activités) : . . . 
DEPARTEMENT DE RESIDENCE : 


MATERIEL(S) POSSEDE(S) 
PERIPHERIQUE(S) : 


NFORMATIQUE 






. . oui □ non □ 

. . oui D non O 

. . oui □ non □ 


u pourquoi 


DIFFERENTES CATEGORIES DE MACHINES TRAITEES, TROUVEZ-VOUS LA PLACE RESERVEE A LA VU1 
□ NORMALE rj TRES IMPORTANTE. ~ 

DES RUBRIQUES DISPARAITRE DU BULLETIN : non □ 

■ oui □ lesquelles : 


)S ARTICLES VOUS PARAIT-IL : 

QUE □ SUFFISAMMENT TECHNIQUE □ TROP TECHNIQUE □ 

OIR APPARAITRE D'AUTRES : non □ 

oui □ lesquelles : 

RS, (S)OUVENT, (R)AREMENT, (J)AMAIS LES RUBRIQUES SUIVANTES : 


: essionnelle SHARP : ; 

à d'autres machines que la vôtre : 

LAQUELLE PREFERERIEZ-VOUS, A L'AVENIR : 
ez votre libraire ou abonnement pur et simple (120 F) 
bonnement + services club (160 F) 
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DANS VOTRE BIBLIOTHEQUE... 


U SHARPENHER 

Entre PROUST et VOLTAIRE, vous pourrez mainte- 
nant glisser votre volume du SHARPENTIER. Nous 
avons rassemblé, en un seul volume de 120 pages, 
la reproduction fidèle des numéros 1 à 5 du bulle- 
tin du club. Ce recueil vous fera participer à la nais- 
sance de notre club (1981) et vous fournira tous 
les programmes, astuces et connaissances acquis 
durant les 2 premières années d'activité des Shar- 
pentiers. Bien au-delà, l'achat de ce volume repré- 
sente un investissement durable que les bibliophi- 
les du monde entier s'arracheront dans les siècles 
à venir... 



M 

ADRESSE 


vous prie de bien vouloir lui faire parvenir 

□ Recueil(s) des n° 1 à 5 des bulletins SHARPENTIERS. 
au prix de 110 F. (port compris) 

□ Bulletin(s) SHARPENTIER n° 6 

□ Bulletin(s) SHARPENTIER n° 7 au PRIX DE 20 F. CHACUN 

□ Bulletin (s) SHARPENTIER n° 8 

□ Bulletin(s) SHARPENTIER n° 9 

□ Bulletin(s) SHARPENTIER n° 10 

□ Manuel(s) Langage Machine PC 1500 

□ Manuel(s) Langage Machine PC 1251 
au prix de 167,40 F. l'un (port compris). 

Je sais que ce livre est en anglais 
et qu'il s'agit d'un manuel de référence 

Ci-joint un chèque de francs. Signature 

Date 



Disponibles en exclusivité au club des Sharpentiers, vous 
pouvez vous procurer ces 2 manuels soit par correspon- 
dance au prix de 167,40 F. l'un (port compris) soit direc- 
tement au club, le mercredi après-midi (exclusivement) 
au prix de 1 50 F. 

Ces manuels, en anglais très bien documentés, sont des 
ouvrages de référence et n'abordent par l'initiation au lan- 
gage machine. 



Des programmes courts, simples, précis. Voilà ce que nous aimons 
voir dans les colonnes du bulletin. Parfois, ce souci ae précision vous 
amène a réaliser des exploits. Vous serez aussi étonné que nous par 
le programme de M. Pierson qui en trois lignes de basic réalise un 
jeu d'arcade fort connu : BOMBER ; ou, par le programme de Mr 
Nicolas qui permet des tris alpha très très rapides. Envoyez-nous, 
vous aussi, vos petits programmes qui reflètent votre maîtrise du 
pocket. 

A bientôt. 


Luc Burelier 


GESTION DU CUVIER (1) 


Le clavier est le partenaire pri- 
viligié du programmeur, mais 
aussi de l'utilisateur* C'est 
pourquoi il convient de bien con- 
naître son fonctionnement et sa 
gestion. 

Commençons par explorer les routines les 
moins évoluées, c'est-à-dire celles se rappro- 
chant de plus près de la structure interne de 


Pour la scrutation clavier, on 
dispose, en BASIC, de INKEY$ ; 
en L.M., ce n'est nas tout à fait 
aussi simple mais les possibilités 
sont énormes. 

la machine. (Quelques rudiments de L.M. sont 
nécessaires pour comprendre cette 
explication.) 


STRUCTURE D'UN CLAVIER 

Il faut déjà savoir qu'un clavier est un entre- 
croisement de conducteurs composé de 2 tra- 
mes ; l'une verticale, l'autre horizontale ; cha- 
que intersection correspond à une touche du 
clavier. Lorsque l'on appuie sur cette touche, 
le contact s'établit, et, si un courant passe dans 
l'un des conducteurs, on le retrouve dans le 
conducteur perpendiculaire à celui-ci. 
Comptons les touches de notre clavier ; nous 
en trouvons 65 ; BREAK/ON n'étant pas traité 

PAO 1 

ino 2 • 

■MHWMH 

IN2 8 OFF 

IN3 4 S 

IN4 SHIFT Fl 

IN5 Y W 

Tiré du « Technical IN6 . N x 

Référencé Manuel ». IN7 

La routine en ROM située à l'adresse E41 8 va 
nous être d'un grand secours pour savoir quel- 
les sont les touches pressées. 

Le désassemblage de cette routine nous est 
fourni en figure 2 ; nous allons juste étudier les 
résultats qu'elle fournit et non son fonctionne- 
ment interne. 

Un A est utilisé en entrée pour indiquer les 
colonnes testées. Il faut décomposer A, bit à 
bit pour savoir quelles vont être les colonnes 
sélectionnées. Le bit 0 de A enverra un cou- 
rant dans la colonne PAO s'il est à 1 ; cette 
colonne sera donc testée. Il en va de même 
pour les 7 autres bits. 

La routine E41 8 force A à &FF, donc, tous les 


comme les autres, il nous en reste 64, soit 
64 entrecroisements de 2 fils, donc : 8 fils 
d'entrée et 8 fils de sortie. Le schéma classi- 
que en carré est une simplification car le cons- 
tructeur préfère agencer les touches dans un 
ordre plus agréable pour le programmeur ; les 
conducteurs ne sont, alors, plus alignés, mais 
le principe reste le même. 

La trame exacte du clavier PCI 500 est repro- 
duite en figure 1. 


2 3 4 

1 ) + 

4 L 

7 0 / 

J K D 

F5 F6 F2 

U I E 

M ( C 

0 ENTER RCL 


5 6 PA7 
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« MODE 6 

P Cl 9 

F A G 

F3 DEF F4 

R Q I 

V Z B 

SPACE SML 


bits sont allumés et tout le clavier est testé. 
La routine E41A conserve A tel qu'il était lors 
de l'appel par SPJ. La sortie s'effectue selon 
le même format que l'entrée, le résultat se trou- 
vant dans A. Les bits allumés correspondent 
à une touche appuyée à l'intersection de la ligne 
désignée par le bit allumé en sortie, et à la 
colonne d'un bit allumé en entrée. Si plusieurs 
colonnes sont désignées lors du traitement et 
qu'un bit est allumé en sortie, on ne pourra pas 
dire quelle est la touche appuyée, mais seule- 
ment qu'au moins une touche de cette rangée 


est appuyée. 

Au retour de cette routine, Z= 1 si aucune tou- 
che n'est appuyée pour le A d'entrée, et A vaut 


Zéro. Pour tester tout le clavier, on fera SPJ 
E418. Si, au retour, Z=1 : Aucune touche 
n'est appuyée. 

EXEMPLE 1 : 

E appuyé ? Colonne PA4 = 00010000 = & 10 
Rangée IN5 = 00100000 = & 20 
LDI A,&10 
SPJ E41A 

BII A,&20 : Z = 0 : Si bit 5 de A allumé : « E » 
appuyé. 

EXEMPLE 2 : 

ou appuyé ? 

Colonne PA7 = 10000000 = &80 
Rangée IN7 = 10000000 = &80 
Colonne PAO = 00000001 = &01 
Rangée IN7 = 10000000 = &80 

Cela revient à tester si, pour les colonnes PAO 
ou PA7, la rangée IN7 est à 1. 

LDI A,&81 (&80 pour et &01 pour) 

SPJ E41A 

BII A,&80 : Z=0, si bit 7 de A allumé : ou 
appuyé. 

Dans le même principe, on peut tester 
ON/BREAK en faisant SPJ E451 , ou, plus sim- 
plement VMJ A6, puisque c'est une macro- 
instruction. Au retour, Z=0 si BREAK est 
enfcncé. 

Vous pouvez déjà désassembler la routine 
E42C qui est l’équivalent de INKEY $, vous avez 
maintenant les informations nécessaires ; nous 
le développerons néanmoins dans un prochain 
article où nous étudierons un SUPER INKEY $ 
qui renverra toutes les touches appuyées au 
clavier, nous verrons également les erreurs de 
INKEY $. 

Marc GIRONDOT. 

£4 1 8. LD I A, r T- 
F'41ft;ÇTAft CF00C) 

F-J4 : FL . «=»N 3 « CF00L),0 
£423. LD! . ÜL, 03 
£425. LQ P £425 
£422. ’ T A 
£429. W. rtT 
£428 '-x T N 

£418. B5FF 
£41 A. i=DA£F00C 
£4 i £ . ct Dë9F00£00 
£423. 6A03 
£425. 8802 
£422. r DBA 
£429. BD r:r 
VA7.B- 9 A 

Désassemblage de la routine en E418-E42B (SOFT 
MONITOR) 




OPTIMISATK) 

$ CE 159 ET CE 16V 


Les deux modules CE- 159 & 
CE- 161, s'ils permettent tous les 
deux d'étendre lu MEV utilisa- 
teur (respectivement de 8Ko et 
de 16 Ko, c'est-à-dire 1 0042 et 
1 8234 octets pour le PC-1 500, 
14138 et 22330 octets pour le 


Cette expression « barbare », tirée des manuels 
Sharp, désigne la procédure qui permet : 

♦ L'écriture de programme et de contenu 
réservé pour stockage. 

• La protection contre l'effacement ou la modi- 
fication du programme stocké et du contenu 
réservé. 

Cette zone pour utilisation exclusive en extrac- 
tion, qui peut-être sélectionnée, pour le 
CE-159, à l'aide du commutateur de réglage 
de capacité : 

4 Ko (3767 octets de programme) 

6 Ko (5815 octets de programme) 

8 Ko (7863 octets de programme) 
ne peut-être pour le CE-161 que de : 

1 6 Ko (16056 octets de programme). 

Le commutateur de réglage est alors sur la posi- 
tion de mise en fonction. 

(voir SCHEMA 1) 

Lorsque le module doit être utilisé en zone d'ex- 
traction exclusive : 

QUE DOIT-ON FAIRE ? 

QUE SE PASSE-T-IL ? 

1 . Placer le commutateur sur la position de 
dégagement. 

2. Indiquer la capactié, pour le CE-159, (4,6 
ou 8 Ko), en ayant évalué la capacité du pro- 
gramme à utiliser en extraction. 

3. Couper l'alimentation. 

4. Connecter le module, rétablir l'alimentation 

0t fgjfg • 

(MODE PRO) -» (ou :) (CL) NEWO (ENTER) 
A ce niveau, examinons la zone des pointeurs : 

7860 FF 

7861 FF 

7862 FF 

7863 XO 


PC-1 5 00 A), ont surtout l'avan- 
tage de pouvoir conserver les 
programmes hors de l'ordina- 
teur, lorsqu'ils sont utilisés en 
« zone d'extraction exclu- 


sive ». 


Partie haute d'adresse de haut de MEV. 

7864 48 

Partie haute d'adresse de bas de MEV. (58 pour 
le PC-1 500A). 

7865 XO Partie haute d'adresse début du basic. 

7866 C 5 Partie basse d'adresse début du basic. 

5. Entrer le contenu des touches personalisa- 
bles. 

6. Entrer le programme BASIC. 

7. Entrer le programme basic pour une utilisa- 
tion exclusive en extraction. 

Les adresses 7867 et 7868 pointent alors sur 
les parties haute et basse du basic. 

8. Exécuter le programme pour extractions 
exclusives. 

Le programme remplit la zone vide en écrivant 
FF à chaque adresse et écrit END à la ligne 
65279. 

Le SCHEMA 2 montre la façon dont la zone est 
alors organisée. 

9. POKER les 8 octets en début de module. 
Pour chaque module, on trouve la même orga- 
nisation : 

XOOO 55 

1 XO Partie haute d'adresse haut de 


2 00 Partie haute d'adresse début du 

basic en, considérant &0000 = 
adresse haut de MEM. 

3 C5 Partie basse d'adresse fin du 

basic en considérant &000 = 
adresse haut de MEM. 

4 ** Code fonction de la taille de la 

MEM. 1KB: « 04H » 2KB : 
« 08H » 4KB : « 10H » 8KB : 
« 20H » 16KB : « 40H ». 

5 00 Non défini. 



197 octets 


PROGRAMME 

BASIC 

pour UTILISATION 
EXCLUSIVE EN 
EXTRACTION; 


PROGRAMME BASIC 
POUR EXTRACTION 
EXCLUS I VE 


| 65279 : END | 7 octets 

Schéma 2 

Module de mémoire après la procédure d'extraction 
exclusive (commutateur en position de fonction) 

6 00 Non défini. 

7 FF ou « 00 » pour programme con- 

fidentiel. 

10 Couper l'alimentation et placer le commu- 
tateur de réglage sur la position de mise en 
fonction. 


1 1 


1 1 1 


RESERVE 
PC - LMPROMOD 


PROGRAMME 
BAS I C 


ZONE 
L 1 BRE 


ZONE 
POU R 

VAR I A BLES 


Etat 1 
Extraction 
exclusive 


Etat 2 
RUN 

ERROR 10 


Schéma 3 

Utilisation « PC-LMPROMOD » pour déblocage de la zone libre 


RESERVE 


RESERVE 

PC-LMPROMOD 


PC-LMPROMOD 

PROGRAMME 


PROGRAMME 

BASIC 


BAS I C 

V 


V 



A 

R 

T 


R 

£ 

1 

A 


A 

B 


B 

L. 


L 

E 

S 


E 

s 

i 


Etat 3 
Après CALL 
« PC LMPROMOD » 
déblocage 


Lorsque l'alimentation est rétablie et après avoir 
entré : 

(MODE PRO) -H» (ou :) (CL) NEWO (ENTER) 
examinons à nouveau la zone des ponteurs : 

7860 X0 Partie haute d'adresse haut de 

MEM. 

7861 X0 Partie haute début basic en MEM. 

7862 C5 Partie basse début basic en MEM. 

7863 38 Partie haute d'adresse haut de 

MEV. (fonction du réglage de 
capacité pour CE-159) 

7864 48 Partie haute d'adresse de bas de 

MEV. (58 pour PC-1500A). 

7865 38 Partie haute d'adresse de début 

du basic en MEV. 

7866 00 Partie basse d'adresse de début 

du basic en MEV. 

Toutes ces manipulations sont longues et peu 
patiques. 

• Le programme basic pour une utilisation 
exclusive en extraction reste dans le module. 

• Une fois le commutateur de réglage sur la 
position de mise en fonction, le ou les program- 
mes sont protégés définitivement de toutes 
modifications. 

• La zone libre est perdue pour la programma- 
tion, mais surtout pour étendre éventuellement, 
la zone des variables. 

Le petit utilitaire propose, en langage machine, 
permet d'une part, de supprimer la plupart des 
manipulations précédentes et de les accélérer 
et d'autre part, de pouvoir, de façon immédiate, 
repasser de l'état MEM à l'état MEV. 

Il devient ainsi possible, de modifier le pro- 
gramme protégé, de le sauver, éventuellement, 


sur bande magnétique et surtout de libérer la 
zone libre pour augmenter la taille de la zone 
des variables. 

(voir SCHEMA 3) « PC-LMPROMOD » occupe 


103 bytes. Il est relogeable, mais pour des rai- 
sons pratiques, il doit être implanté en début 
de module, en laissant libre la zone de réserve. 
&X0C6 (X = OpourCE-161 et 2 pour CE-159) 


1 SAISIE DU PROGRAMME : 

• Connecter le module. 

• Mode RESERVE : (NEW). 

• Mode PRO (CL) NEWO (ENTER). 

• NEW &X12F (X = OpourCE-161 et 2 pour 
CE-159) 

•Charger, si possible, un moniteur. Le « Moni- 
teur HEXADECIMAL SHARP », donné dans le 
numéro 9 par exemple. 

• Entrer les codes hexadécimaux de &X008 à 
&X0A3. • 

• Entrer « PC-LMPROMOD » de &X0C6 à 
&X12D. 

2 PROCEDURE 

POUR EXTRACTION EXCLUSIVE : 

• Pour CE-159, déterminer la capacité, en 


fonction de la taille du programme basic et 
modifier les adresses &X 1 09 et &X 1 1 5 en con- 
séquence (voir programme). 

• Entrer le programme basic. 

• Mode RESERVE I : Appuyer sur OFF (F2). 
•Couper l'alimentation du PC-1500. 

• Mettre le commutateur en position de 
fonction. 

• Rétablir l'alimentation. 

• Faire (CL) NEWO (ENTER). 

3 PROCEDURE 

POUR DEBLOCAGE DU MODULE : 

• Mettre sous tension, le module étant 
connecté. 

• Mode RESERVE I :Appuyer sur APO (F6). 

• Mettre le commutateur en position de déga- 
gement. 


• Remettre sous tension. 

• Mode RESERVE I : Appuyer sur ON (F4). 

Le module est alors rétabli en état MEV, le pro- 
gramme est à nouveau accessible et la zone 
de variables peut occuper la zone libre dans le 
module. 

Après modifications éventuelles ou utilisation, 
la procédure d'extraction exclusive peut-être 
à nouveau utilisée, comme décrite ci-dessus. 
Il est tout à fait possible d'implanter à la suite 
de notre utilitaire « PC-LMPROMOD », un pro- 
gramme en langage machine. Mais pour pou- 
voir être utilisé en extraction exclusive, celui- 
ci doit obligatoirement faire l'objet du (NEW 
&nnnn) d'usage. 

Gérard MALLET 
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ANNEXE 1 

LISTING DES CODES 

DES TOUCHES PERSONNALISABLES 

(faire [NEW] en mode RESERVE) 

CE-161 CE-159 


X008 2A 4F 46 46 7E 7B FF 7D 

X = 0 
82 

X = 2 
A2 

X010 2A 2A 4F 4E 7E 7B FF 7D 

76 

96 

X018 2A 41 50 4F 7E 7B FF 7D 

97 

B7 

X020 2A 2A 2A 2A 2A 2A 2A 2A 

70 

90 

X028 2A 2A 50 41 47 45 20 4C 

05 

25 

X030 49 42 52 45 2A 2A 2A 2A 

FA 

IA 

X038 2A 2A 2A 2A 2A 2A 2A 2A 

88 

A8 

X040 2A 2k 2k 2k 50 41 47 45 

05 

25 

X048 20 4C 49 42 52 45 2A 2k 

2k 

4A 

X050 2A 2A 2A 2A 2A 2A 2A 02 

78 

98 

X058 Fl 8A 28 Fl 6F 26 37 38 

FO 

10 

X060 36 33 2k 32 35 36 2B 32 

ED 

OD 

X068 31 31 29 40 04 Fl 8A 28 

DA 

FA 

X070 Fl 6F 26 37 38 36 33 2k 

F8 

18 

X078 32 35 36 2B 32 38 38 29 

OB 

2B 

X080 40 06 Fl 8A 26 45 33 33 

12 

32 

X088 46 40 00 00 00 00 00 00 

OE 

2E 


ANNEXE 2 

« PC-LMPROMOD » 

(faire [NEW &X12F) en mode PRO 

avec X = 0 pour CE- 1 6 1 et X = 2 pour CE-1 59) 

X0C6 : XI 2F XI 2F XI 2F 
Pointeurs sauvegardés 

XOCC : FE FF 03 Fl 8E OD FF 
Codes END 

1 . Routine pour extraction exclusive : 

(CALL &X0D3) 


Sauvegarde des pointeurs module : 


X0D3 : A5 78 63 LDA 7863H 

6: 28 

STAUH 

7: 18 

STAYH 

8 : 5A 00 

LDI YL, 00H 

A : 6A 03 

LDI UL, 03H 

C : B5 55 

LDI A, 55H 

E: 51 

SIN Y 

F: A4 

LDA UH 

EO: 51 

SIN Y 

1 : FB 

SEC 

2 : A5 78 65 LDA 7865H 

5: AO 

SBC UH 

6: 51 

SIN Y 

7 : A 5 78 66 LDA 7866H 

A: 51 

SIN Y 

B : B5 00 

LDI A, 00H 

D : 88 05 

L0P05H 


Sauvegarde des pointeurs Basic : 


F 

48 78 

LDI 

XH, 78H 

Fl 

4A65 

LDI 

XL, 65H 

3 

A4 

LDA 

UH 

4 

18 

STA 

YH 

5 

5AC6 

LDI 

YL, C6H 

7 

6A05 

LDI 

UL, 05H 

9 

F5 

TIN 


A 

88 03 

LOP 

03H 

FF de STATUS 2 

à 3F* 

: 9H : 

C 

A5 78 67 LDA 

7867H 

F 

08 

STA 

XH 

X100 

A5 78 68 LDA 

7868H 

3 

OA 

STA 

XL 

4 

40 

INC 

XL 

5 

B5 FF 

LDI 

A, FFH 

7 

41 

SIN 

X 

8 

4C3F* 

CPI 

XH, 3FH* 

A 

99 05 

BZR 

,-05H 

C 

4E F9 

CPI 

XL, F9H 

E 

99 09 

BZR 

, -09H 

Création ligne (65279 : 

END): 

10: 

A4 

LDA 

UH 

1 : 

08 

STA 

XH 

2: 

4ACC 

LDI 

XL, CCH 

4: 

58 3F* 

LDI 

YH, 3FH* 

6: 

5AF9 

LDI 

YL, F9H 

8: 

6A06 

LDI 

UL, 06H 

A: 

F5 

TIN 


B: 

88 03 

LOP 

03H 

D: 

9A 

RTN 



2. Routine pour déblocage du module : 
(CALL&X11E) 


211E 

A5 

78 63 LDA 

7863H 

21 

08 


STA 

XH 


2 

4A 

C6 

LDI 

XL, 

C6H 

4 

58 

78 

LDI 

YH, 

78H 

6 

5A 

65 

LDI 

YL, 

65H 

8 

6A 

05 

LDI 

UL, 

05H 

A 

F5 


TIN 



B 

88 

03 

LOP 

03H 

D 

9A 


RTN 




(*) : Valeur fonction de la taille de la MEM 
4KB : « 2FH », 6KB : « 37H », 8KB et 16 
KB : « 3FH ». 

• Pour un programme non confidentiel : POKE 
&X007,&FF. 

• Pour un programme confidentiel : POKE 
&X007,&00 




MONITEUR HEXADECIMAL (SUITE) 


C« prsgmnM, pvblie dans de sauds, ni vous a vain un 
notre bulletin N 9, vous a, abondant courrier. La (sa vou- 
semble-t-il, cause beaucoup reuse) lettre de Marc Rivet 


résume vos griefs et apporte 
les solutions nécessaires. 

Une lettre... et on devient 
sharpentier- journaliste. . . 

pourquoi pas vous ? 


Besançon, le 17-10-84 


Salut les Sharpentiers 


Je viens de recevoir le N"9 de la revue du Club. Plu- 
sieurs articles^consacrés à .a aachine -le PC 1500- o-t r.tjn- «« 
attention, aais, étant grand amateur de L.M. , je ae suis precip 
sur le "Moniteur Hexa-déeiaal publie page 1 /. 

Ron i le rentre le prograaae pour obtenir ... "erreur 

d'introduction”! pas’ de ^“de Jrobïè^?" ° 

Je relis scupuleuseaent «es ^gnes • auffit de décortiquer 

Rebelote ... Mê.e t R ”î # 3V s£Ûf que chez soi. STATUS 1 vaut 

le test de la ligne 4 'tout est M de -ettre un » r " ag BO t 

l 6a !‘ h et?in" lettre qui avait lté oubliée dans votre listing 
"introduction , lettre qu* ratifie le tir, et 

Après avoir beaucoup ri. .. . je rectifie sur 

c’est reparti! j’obtiens enfin ,‘*ç 5 qui Be donne un superbe 

PC 1500A + CEI 61 , je lance donc CALL a,ca. ce qui 

“ERROR 0“ (!) - 

Tl est tenos d’utiliser les grands aoyens; je saute sur 

« — ««-s 

— « « 

réputée vide ! ! 

L’explication est siaple. l’étude du J""”””” 

bi«. i. = •“îst , ïïS"5wSMS r îi”.‘ “ :«»u. 

listing, ce prograaae N EST PAS RELOütsouc « . . La solution 

il a été publié (gênant pour un Pr°0 j configuration utilisée, 
la plus siaple consiste, quelle q dès lors plus de problèae. nais 

îl ^ls? e aslez*'?r ustr anl a àe I * * * S sacr ifi er ^ 1 6^So . Sans le lut. 

Il ne reste plus qu’à laisser le 1500 se charger du 

I SjJu«r r iis lignes^28o"et «o'égaleaent ci-dessous 

Faire RUN' et la aachine se chargera d’adapter le 

prograaae à la conf iguration utilisée ! 

Bien amicalement 
Marc RIVET 

5-X=PEEK 6.7863 :W=X*256: FOR Y=0 TO 17:READ ViPOKE W+V.PEEK (W+V) -8.40+X: 



Pour programmer on langage disponibles en ROM. C'est ce 

machine, il faut tout d'anord que nous allons voir dans la 

maîtriser les possibilités du suite de cette série sur le lan- 
microprocesseur, la manipula- gage machine appliqué au PC 
tien des registres, mais surtout 1 500. 
il faut bien connaître les routines 


Le PC 1 500 dispose à lui seul de 1 6K de ROM 
et l'imprimante de 8K, on peut dénombrer envi- 
ron 1 000 routines utiles !. Vu ce nombre il 
serait difficile de les expliquer toutes mais je 
vais tenter de vous décrire les plus importan- 
tes et les plus utiles. Pour cela nous classerons 
les routines selon quatre types : 

1) les routines d'affichage 

2) les routines de calcul 

3) les routines de l'imprimante 

4) les autres 

Nous allons regarder cette fois çi les routines 
d'affichage. Ces routines seront très utiles à 
tous ceux qui désirent gérer l'écran à partir de 
programmes en langage machine. 

DU POINT DE VUE DE LA RAM 

Il exsite en RAM système deux octets qui sont 
constamment utilisés par les routines que je 
vais vous décrire : 

- (7875) = GCU position du curseur graphi- 
que (0-155) 

- (787B) = CUR position du curseur texte 
(0-25) 

Les routines utilisent aussi le BUFFER PR INT, 
tampon de 80 octets, qui va de 7B60 à 7BAF 
(en hexa). 

Quand à la RAM écran, nous n'aurons pas à 
travailler directement dessus, ce qui n'est pas 
un tort. Les routines que nous allons voir s'oc- 
cupent elles-mêmes de trouver les bonnes 
adresses dans cette zone qu'il n'est vraiment 
pas facile de gérer. A ce propos il faut aussi 
savoir que lors de l'utilisation des routines gra- 
phiques, le registre X (BC) du microprocesseur 
contient une adresse en RAM écran. 

De même le registre U (HL) contient l'adresse 
d'une chaîne de caractères lors de l'affichage 
d'un texte. 


Dans la suite de cet article, les routines sont 
données avec un pseudo mnémonique, 
l'adresse de la routine et si c'est le cas, entre 
parenthèses le numéro de la macro institution 
correspondante. 


ROUTINES D'USAGE GENERAL 

Ces routines agissent sur les différents poin- 
teurs du système. 

HOME ECAE GCU-0 

CLS EE71 (F2) efface l'écran 

STO EDC1 sauve l'écran en RAM 

système 

RCL EDD8 rappelle ce qui avait été 

sauvegardé 

PSHLCD EE80 sauve les caractéristi- 

ques de l'écran 

POPLCD EE99 rappelle les caractéristi- 

ques de l'écran 


AFFICHAGE EN MODE TEXTE 

On a 3 instructions pour l'affichage en mode 

texte : 

PRA pour afficher un seul caractère. 

PRT pour afficher une chaîne de caractères. 

PRX pour afficher le registre arithmétique. 

PRA (X) ED5B (8A) Affiche le caractère 
de code ASCII A à la 
position X sur l'écran. 

PRA (GCU) ED 57 Affiche le caractère 
de code ASCII A à la 
position (GCU). 

PRA (IGCU) ED4D Idem avec incrémen- 
tation de (GCU). 

PRT (BUF) ECFA Affichage du buffer 
PRINT. 


PRA (IGCU) ED4D 
PRT (BUF) ECFA 


PRT ED3B Affiche la chaîne 

d'adresse U et de lon- 
gueur A en début 
d'écran. 

PRT (CUR) EDOO (92) Affiche la chaîne 
d'adresse U et de lon- 
gueur A à la position 
(CUR). 

PRX EEEF Affiche le contenu du 

registre arithmétique 
X à la position (CUR). 

AFFICHAGE EN MODE GRAPHIQUE 

Ici deux types d'instructions importantes : 
POS traduit la position d'une colonne en 
une adresse en RAM 

GPR affecte une valeur (de 00 à 7 F) à une 
colonne. 

POS (GCU) EE1F (8C) X-adresse en RAM 
écran correspon- 
dant à la colonne 
(GCU) 

POSA EE22 X-adresse en RAM 

écran correspon- 
dant à la colonne 
A. 

GPR (GCU), A EDEF Affiche la colonne 

A en position 
(GCU), GCURSOR 
(GCU) : GPRINT A 
GPR (IX), A EDF6 (88) Affiche la colonne 

A à la position X et 
incrémente X. 

GPR (IX), (IY) EDF5 Affiche la colonne 

(Y) à la position X 
et incrémente X,Y. 
INC (GCU) EDB1 (8E) incrémente (GCU) 
avec TLR. 

TLR EDAB (90) Test la fin de 

l'écran, carry = 1 
si le curseur graphi- 
que > 1 55. 

Au retour A con- 
tient la valeur de la 
colonne pointée par 
A. 

Nous allons à présent regarder ensemble la réa- 
lisation de quelques routines graphiques. Cha- 
cunes de ces routines vous sont données sous 
forme de mnémoniques, avec explications ligne 
à ligne, suivies des codes machines qui 
correspondent. 


GPR (IX), A 


GPR (IX), (IY) EDF5 


INC (GCU) 


INVERSION VIDEO : 

Une routine simple mais instructive : Sur une 
boucle, on lit successivement les valeurs des 


,rrT\ 


colonnes dont on prend le complémentaire. 
De plus cette routine pourra comme nous allons 
le voir servir à d'autres fins. 

La routine s'écrit : 


LDi YH, 00 

LOOP LDA YH 

SJP POINT 
EOR A, 7F 

STAYL 
LDA YH 
SJP POS 

LDA YL 

VMJ GPR (IX), A 
INC YH 

CPi YH, &9C 

BCR, LOOP 

RET 

Les codes machine sgnt- 
58 00 94 BE EE CExBD 
22 14 CD 88 FD 50 9 


on commence à la 
première colonne 
A = position de la 
colonne 
A = POINT A 
on prend le complé- 
ment à 7F (inver- 
sion) 

sauvegarde de la 
valeur dans YL 
A = position de la 
colonne 

X adresse corres- 
pondant à cette 
position 
on récupère A 
et on fait un GPRINT 
on passe à la colon- 
ne suivante 
on regarde si c'est la 
dernière 

si ce n'est pas la der- 
nière, on boucle 
retour au basic 

7£)lA 94 BE EE 
9C 91 14 9A 9A 


LDA YL 

VMJ IGPR (IX), A 
INC YH 

CP YH, &9C 

BCR, LOOP 

RET 


on récupère A 
et on fait un GPRINT 
on passe à la colon- 
ne suivante 
on regarde si c'est la 
dernière 

si ce n'est pas la der- 
nière, on boucle 
retour au basic 


LP2 


6ft- o ï 

LDi UL, 00 

RLA Ul. i A 
PSH A Pp .ci 
LDA UH «u* 

RRÂ r. o «.(^décalage à droite 

STAUH >u UH = A 
POP A ft> Ÿft récupère A 


UL = 08, on va bou- 
cler huit fois 
décalage à gauche 
empilé A 
A = UH 


Les codes maçhine sont ^ , 

58 00 94 BEÎEE CE(1A D#14 DB IA 94" BE 
EE 22 1 4ÎCD 88 FD 5#5C 9C 9l(Ï4f9A 9A 


DJC LP 2 
LDA UH„ 

RET 


A 1 

INVERSION DE SENS : 

Une routine amusante qui permet de lire à l'en- 
vers, l'écran de votre PC 
Il faut pour cela procéder à une double inver- 
sion au niveau des pixels, de gauche à droite 
et de bas en haut. 


boucle 

A est devenu image 
dans un miroir de lui 
même, retour de la 
sous-routine. 


Les codes machine sont i 
E9 78 75 001A5 78 75 BEf 
6^ 18 B5 9C|A1 78 75- ÎA] 
C8 14 BE EE 22 94 CD J 


tz 


ANi (GCU), 00 

P î a i b , sv 

LOOP LDA (GCU) 

Vs * L 

SJP POINT U 
SJP INV . 


SCROLUNG VERTICAL : 

Pour changer un peu des SCROLL habituels (à 
faire tourner en boucle). On peut reprendre en 
grande partie la routine précédente, seul l'ins- 


STAYH 

LDi A, 9C e>5 U 
SBC A, (GCU) 

a 1) 

STAYL 

SJP POINT»* 
PSH A fe H 
LDA YL i<t 


remise à zéro du cur- 
seur 

A = position du cur- 
seur 

A = POINT A 
SPG d'inversion de 
A bit à bit 
sauve A dans YH' 
A = 1 56 dec 
A = position symé- 
trique 

sauve cette position 
dans YL 
A = POINT A 
empile cette valeur 
récupère la position 
symétrique 


JE BE 2& 

EE CE FD 
8A BE B\o ^ 

X L 

3 


in EOR A, 7F est à changer : 

SJP POS 

X-adresse corres- 

LDi YH,00 

on commence à la 

i i 

pondante à la posi- 


première colonne 


tion 

LDA YH 

A = position de la 

LDA YH T 

récupère YH 


colonne ‘x£ 

,-^JP GPR (IX), AU et premier GPRINT 

SJP POINT 

A = POINT A 

P,é POP A Ru n 

dépile A 

STAYL 

sauve A dans YL 

SJP INV hcli 

traitement de l'accu- 

RLA 

SCROLL avec CARRY 


mulateur 


(décalage à gauche) 

SJP GPR (GCU), A deuxième GPRINT 

LDA YL 

récupère A 

LDA (GCU) 

A = position du cur- 

RLA 

cette fois-ci, on a 

PtT vt T5 

seur 


une rotation com- 

INC A -p o 

incrémentation 


plète 

STA (GCU) 

nouvelle valeur du 

STAYL 

sauvegarde de la 


curseur 


valeur dans YL 

CP A, 4E 

regarde si milieu de 

LDA YH 

A = position de la 


l'écran 


colonne 

BCR LOPP 

on continue si pas 

SJP POS. 

X adresse corres- 


encore 


pondant à cette 

RET 

retour au basic 


position 

INV LDi UH, 08 

UH = 00 


34 BE ED EF A5 78 7'5 DDAE 78 75 B7) 
4E 91 2F 9A 68 00 6A08 ,DB FD C8 A4 
DI 28“FD 8AJ88 ÛÀ A4 9A 
Voilà donc en ce qui concerne l'utilisation des 
routines graphiques. Pour celles qui permettent 
d'afficher du texte, on se rapportera au pro- 
gramme LM du MICRO MONITEUR (bulletin 
n° 7), qui utilise la plupart de ces routines. 
Vous trouverez ci-dessous un programme 
BASIC qui permet d'utiliser les trois routines 
graphiques, qui sont POKEs dans la zone des 
variables. 

L'utilisation est simple, on entre un message 
et on choisi par KEY le type de la transforma- 
tion. 

Voilà, la prochaine fois nous regarderons de 
près les routines de calculs, et dès maintenant 
proposez-nous vos applications graphiques. 

Pascal Abrivard 


EXEMPLE DE ROUTINES GRAPHIQUES; I 
- <c> P. ABRIVARD et le CLUB ’ 

•** * #•* K *** * * # * -K -X- * * X *■* * -X -X ** ******** 


m 


& ED f Sç 


10 DATA 
35 DATA 
{$0 20 DATA ; 

■25 DATA 
yû 30 DATA 

■i?ô AU -DATA: 
Z) 5 DATA : 
50 DATA 
55 DATA 
60 DATA 
65 DATA 
70 DATA 
75 DATA 
: 3 BÔ; DATA 


S-.94 , ?<BL , ?-E!£ , S.CE. , ?<BD , S.7F 
S.BE , ?<EE , S-22 , ?.. 1 A , ?<CD , ?.0B 

5.. 5C , ?'9U , ?<9 1 , M 4 , ?,9 A , S.S8 \ 

?(BE » ?<e:e , s. ce , sa a , &db , ?< i& 

S.94 ,S.BÈ , ?ÆE ?<Ô2 , ?'CD :: ; 

?. 75 , M >0 , 6 AU , L7-R , ï'75 , Ï-.BE 
S-BE , saO-, S..B4 , ?.. 1 B , ?<B5 , S.9C : ; 

, S'75 , ?.‘l A , S'BE , ?.E E , BÇC £ FJ5 t 
, ?<BË , ?<EE,,:?..22 , &94 .:| CD ,? æC-T 

5.. BE , ?.,70 , ?<B4 , 8<BE , ?rED , ?<EF. 
?.,75 , ?<DD , ?<AE , ?'.7B , S.75 , S..B7 v; 
S.2F , S-9A , ?<68 -, ?<00 , ?<6A , ?<08 ; 
S.C8 , ?< A4, S'.Dl , S.2B , ?<FD , ?<BA 

A4 , ?<9 A TTt'tT' 




170 

180 

181 


CL.EAR s DIM A* <0> *26:, WAIT 0 • — 

FOR T=OTQ 1 1 Sï RëAD V.sT , üKE / ,'^Q5®r.I 
AT (0) - "-LE CLUB DES . TfeH A'RF^EEHtTfTTE^ 
"MTCLS : INPUT "Message- ; AT <0> 
F'RTNT "1: VIDEO 2: SCROLL 3: ENVERS" 
V=VAL INKEY3 : TF V< 10R V>3THEN 14 
PRI NT A4 (0) : ON VSQSIJB 200:, 21 0,220 
T F INi:.EYJ = " "THEN 1 60 
GOTO "M" T' O :- :: t 


I : CALL S..7050 : RETURN : 
- FOR T-~OTO 23: CALL. 
i CALL S.7080: RETURN 


.7067: NEXT T: RETURN 



Tapez le programme en ne faisant, si possible, aucune erreur. Vous serez, 
alors, projeté aux Jeux olympiques en faisant : RUN - ENTER 
Avant chaque épreuve est affiché le mode d'emploi, pour passer d'une 
ligne à l'autre, tapez ENTER. 

Si l'imprimante est connectée, un tableau récapitulera les scores des 
10 épreuves. 

Le programme fonctionne sur un PC 1500 muni d'au moins 8 Ko. 

Maurice CHOUCROUN 


10 BEEF OFF ïGOSUB 61E3«BEEP 2 .75, 200: D=4!RAHBDH «D1H A*( ? ),B$( I )«24:A»>*00006824 IF6444* 

15 HAIT O: CLS «CURSOR 3! PAUSE *♦♦♦ 100 HETRES ♦♦♦•«CLS 

16 PAUSE "< 4) ET ffe » Pour ovanc-er. . . * s HftIT 

20 GCURSOR 124Ï6PRIHT 127:GCURS0R OîGPRlHT A*:GCURSDR 
22 GCURSDR 128«PPINÎ ■ • 

25 FOR l-IOOTD OSTEP -ÜGCURSOR 128:P8IHT ÜHEXT ÜBEEP 2,9«TIHE «OîGCURSOR 128 
JO IF INKEY* **4'LET H=1 

40 1F INKEY* =* 6 *ANB HLET H=0«K=K*2« GCURSOR KiGPRINT A*: IF K)118G0T0 60 
50 GOTO 30 

60 S=40-T1HE eZEdiBEEP ÜCLS «CURSOR 5«PAUSE 'Te»Pe MTIHE ♦1E4I* secendes’iPAUSE 

70 GOSUB 6E4« PAUSE «GCURSOR 8 «BEEP 2«PAUSE *♦♦♦ SAUT EN HAUTEUR ♦♦.♦*« CLS 

71 HAIT SPRINT "(ENTER) Pour s eloncerMHAlT 0«CLS 

72 G=ÜNAIT 1 «B*=*7800606060606060* • 

75 FDP J=1T0 3«CLS «CURSOR 19: PAUSE “PRET ! " sPAUSE *CURSOR 19*PRIHT "GDI *i|EEP 1 
80 GCURSOR 0«GPRJHT AliGCURSOR 100«GPRINT B* 

90 FOR 1=1T0 95STEP 2«GCURS0R ÜGPRINT A*!«IF INKEY* =CHR* 13ÏEEP ÜGOTO 100 
92 HEXT I 

95 ÏEEP 3,80«CURS0R 19«PAUSE ’SPLAT *+STR$ JïPAUSE :MEXT JîGOTO 200 

100 I=Ü6«0N GGDTO 110,120,130 

110 1F K950R D99GOTO 95 

112 GOSUB 16D« B*=*7C0O6O6O6O6O6O6O*«GOÎQ 75 

120 IF I097AHD IO99GDT0 95 

122 GOSUB 160«B*=*7E00606060606060'«GDTO 75 

130 IF IO99G0TD 95 

132 GOSUB 160* GOTO 200 

160 GCURSDR 90«GPRIHT *000000000000" 

165 HAIT 50 «GCURSOR 96«GPR1NT '080E320A7E0767676A6868'iGCURSOR 96*6PRINT *OQOOOOOO?812746878?A7C6B*«HAIT 1 
170 BEEP 3,5«CURSQR 0«PAUSE *BRAVO!!*«PAUSE «G=G+ÜRETURN ' ' ' 

200 IF G=2LET S=S+7 

201 IF G=3LET 

202 IF G=4LET S=S+20 

205 GOSUB 6E4«AKOt**OOOOOOOÛ067E'«A*( 1 )=*0000060E3040*«A*(2)=*00060EI02040* 

206 AK 3 )= *060608 1 02040* : A» 1 4 >= "OCOC 1 0202040* > A» ( 5 )=* 303020404040* 

207 HAIT OïBEEP 2«AU6 )= *606040404040 * J CL S iCURSDR HPAUSE *♦♦♦ LANCER BU POIDS ♦♦♦'«PAUSE 

208 HAIT 0: PR INT *(4) Pour*:«GPRINT UüPRINT * et 18) Pour'üHAIT : GPR INT F*«CLS (HAIT 0 
210 CLS î GCURSDR 108fGPR INT "442A1B112E40* 

212 G=Ü«FOR I=OTO 95STEP 5:GCURS0R l! SPRINT 127iNEXT I 

215 TIHE =0:BEEP ÜGCURSOR IOOîGPRINT A*(OI 

220 IF INKEY* =*4*LET G=G+I«IF GT 6 LET G =6 

230 IF INKEY* =* 8 *LET G=G-ÜIF G<OLET G=0 

240 GCURSDR 100«GPRINT A»(GUIF TIHE 0. 0002GDTO 220 

255 BEEP ÜG=2*G«1F G*ILET H=80 

256 IF G=2LET H=40 

257 1F G=4LET «MO 

258 IF G= 8 LET H=20 

259 1F G»I 6 LET H*30 

260 IF G=32LET H=40 

261 IF 6*64LET H=80 

262 K=H-RND lOiFOR I=98Ï0 KSTEP -ÜGCURSOR ÜIF POINT IM27LET J*I 

263 GPRIHT GDR POINT Ii0*127*(P0INT (Ül)> 6 ) 

265 NEXT ÜCURSOR 2D«BEEP1«PAUSE STR* (U00-K)/5)+* «'«PAUSE 

266 IF 1 100-K )/5>XLET X=(100-K)/5 

267 E=E+1»IF EO3GDT0 210 

268 S=S*XtGDSU! 6E4«CLS ! BEEP 2! PAUSE * ♦♦♦ SAUT EH LONGUEUR ♦♦♦•«PAUSE «CLS «X=0 

269 HAIT «PR1NT *(SPACE) Pour Prendre «PPuiMPRINT *< ENTER) Pour Muter. ..'«CLS 

270 A*I0)=’30I2I47F4404*«A*(I )=*1808691A040B0808*«A*I2 )=’I868291AOC040B0808* 

273 A*( 3 )=*026E2838091E2828*«A*I 4 1**6028386064782020' 

279 FOR J*ITO 3«HAIT OiCURSOR 5«PAUSE "PRET ! * *PftUSE «BEEP HCLS «FOR 1*50Î0 150STEP 5«GCURS0R ÜGPR1NT 64«HEXT ÜGCURSOR 
5ÜGPRINT 64 

280 FOR 1=0TD 43: GCURSDR ÜGPRINT A»«IF INKEY» ** "GOTO 300 
285 NEXT I 

290 GCURSDR O.'BEEP 1.20ïPAUSE *SPLAT!*«NEXT J«GDTO 350 

300 HAIT 5SF0R R=OTD 4«GCURSDR I-ÜGPRINT A»fR)«IF INKEY» OCHR* 13NEXT RiGOTO 290 
302 HAIT 0«IF R< =2LET E*20*R+20«NAIT 4-Re2 
304 IF R>2LET E=20*( 4-R )+20« MAI T R 

309 BEEP ÜGCURSOR 1-3: GPR INT "602414684C1606* * GCURSDR I«C**'OOOFOAOA181Q*i6PRlHT C» 

310 FOR L=ITO ÜE«GCURSOR UGPRINT C» 

320 NEXT L«L=L+RND 5«BEEP 1,10«HAIÎ IO«GCURSOR L« GPR INT *3E2828204000*«BEEP l,IO«GCURSDR LiGPRINT *785050406000* 

340 GCURSDR L-GsPRINT * '«BEEP 1,30«CURS0R 0«PAUSE L/151*» '«PAUSE «PAUSE 

345 IF XIL/7LET X=L/7 

346 NEXT J 

350 S=S«X«GOSUB 6E4:H=0«G=0:K=0iL=0 
360 CLS «BEEP 2«PAUSE * ♦♦♦ 400 HETRES ♦♦♦'«PAUSE «NAIT 0 

362 HAIT SPRINT MO), (.),(*) Pour evencerMHAlT 0«CLS 
365 CLS « GCURSOR OîGPRINT A» 

370 GCURSOR 35«GPRINT 64«GCURS0R 60«GPRINT 64«GCURS0R 85«GPRINT 84 

380 GCURSOR UOiGPRINT 127«CURS0R 19IPAUSE *PRET«*IPAUSE «BEEP ÜT1RE *0«CURSDR 19«PRINT *G0«* 

390 1F INKEY* =*0*LET H=l 

392 IF INKEY* **.*AND HLET G*ÜH=0 

394 IF INKEY* =*=*ANB GLET 6-0* L=L*2« GCURSOR LiGPRINT A*«IF DI04G0T0 410 ^ f\\" 



400 GOTO 390 

410 BEEP 3.25SCURSDR 0«PAUSE ’BRAUD! M *: PAUSE 

417 BEEP ÜT1HE =TIHE ♦ 8 «A=TIHE ♦100«CURS0R 3«PAUSE *TEHPS*:A:*»n'«PAUSE «GOSUB 6 E 4 

420 HAIT 0«CLS «BEEP 2« PAUSE * ♦♦♦ SAUT A LA PERCHE ♦♦♦'«PAUSE « 1*( 0 )=*0 163251 F 15734 10 1 OIOIOI 01 

421 MAIT «PRIHT '(SPACE ) Pour abaisser lo*«PRINT 'Perche et (ENTER» 0 

425 CLS «H=85 « B* 11 1= *78004040404040404040* 

427 FOR J= 1T0 3«CLS 

430 GPRINT B*l 0 ÜGCURSOR 100«GPRINT B*ll) 

435 GCURSDR 90« GPRINT 64: BEEP I 

440 FOR I=OTD 80«GCURSDR I «GPRIHT 0«B*(0)«IF INKEY* =* 'GOTO 450 
443 NEXT I 

445 BEEP 3,45«CUPS0R 0«PAUSE ’SPLAT « !*! JjPAUSE «NEXT JîGOTO 500 

450 FOR L*1T0 I + 1 0« GCURSOR LiGPRINT *6020101F 1C6B4A0C08 1020* « IF INKEY* =CHR* 13G0T0 460 

452 NEXT L« GOTO 445 

460 1F LCHAND LCIOOGQTO 445 

461 GCURSOR 83«GPRINT *0000000000000000000000000000000000* 

482 HAIT 40 «GCURSOR 92«GPRINT *271AIC18IC2B44067C*«GCURS0R 92«GPRINT " 0000000 1 07 1 97 70 1 7F 050909 * 

463 GCURSOR 93«GPRINT "00000000007C027A3F6A5A524040404040* 

484 GCURSOR 95« GPRINT *030C3040007C0050507C727050686C * 

465 GCURSOR 93«GPR1NT *020408102040" 

466 GCURSOR 90«GPRINT *10101 0202020404040* «GCURSOR 89« GPRIHT *40404040404040404040* 

467 HAIT OïBEEP !.18«CURS0R 0« PAUSE "BRAUO « « «"«PAUSE «0=0+l«0H OGDTO 470.480,490,500 
470 H=N+Ü Bü 1 )= *7C * +R I GHT * (B*(1),LEN B*( 1 )-2 )* GOTO 427 

480 H=H*ÜB»(1 >=’?E’*RIGHT* (Btdl.LEH B*( 1 )-2 UGOTD 427 
490 H=H+I«B*I I )=*7F**RIGHT* IB*II),LEN B*< I )-2 )»6DT0 427 
500 CLS «S=S+0*5«GDSUB 6E4 

510 A=0«CLS «BEEP 2«PAUSE * ♦♦♦ 110 HETRES HAIES ♦♦♦'«PAUSE 
512 HAIT «PRINT '(ENTER) Pour seuterMHAIT 0«CLS 
515 CLS «CURSOR 5ÜNFUT *t'it*s« LO-5 P*:P«HAIT 5-P 

520 CLS «FOR I=20TQ 120STEP 20«GCURS0R ÜGPRINT 112»NEXT ÜGCURSOR 140«GPRINT 127 
530 GCURSOR OîGPRINT A* «GCURSOR 142 «PAUSE *OK*«PAUSE «BEEP Ü GCURSDR 142 «PR INT *GO*«TIHE *0 
540 FOR 1=010 136STEP 2«GCURSDR IîGPRINT A*«IF INKEY* =CHR* 13G0T0 570 
550 NEXT ÜBEEP 2.3ÜG0T0 590 

570 1F POINT fÜ9l=H20R POINT (Ü8M12GCURS0R I+2« I=I+ 6 «GPRINT * 1 8090907770A3B23" « GOTO 550 
580 A=At2«G0T0 550 

590 A=A«TIHE ♦1E4«FDR I*20T0 120STEP 20* IF POINT K112LET A=A+10 
595 NEXT I« PAUSE *TEHPS*«A«* sec*«PAUSE «S=S+I 100-A)/5«GOSUB 6E4 
600 HAIT 0« CLS «BEEP 2«PAUSE * ♦♦♦ LANCER DU DISQUE ♦♦♦•«CLS 
610 HAIT «PRINT '(ENTER) Pour lecher le*«PRIHT *di»que...’«HAIT 0«CLS 
6 20 A* ( 0 )=" 030304080000 " : A S ( 1 )=*0000031F0000*« A*( 2 )**000008040303* 

622 A*f3>**OOOO08O8OCOC*«A*(4l**OOOOO4O8JO3O*iA*(5)«'OOOO?86OOOOO* 

624 A »( 6 >=*303008040000" «A*( 7 )=*OCÜC08080000* 

625 FOR J=1TD 3«HAIT OUNPUT *UUe»$e(0-3)? , îU*CLS «FOR L=15T0 115STEP 5«GCURS0R LiGPRINT I27«NEXTL 
630 GCURSOR 6 *GPRINT I27«I=-ÜHAIT 3-U 

640 FOR I'OTO 7» GCURSOR 8 « GPRINT AJIIUIF INKEY* =CHR* 13BEEP1: GOTO 650 
645 NEXT ÜGOTO 640 
647 GOTO 640 

650 IF KiOR D4BEEP 2,32«CURS0R 20«PAUSE *SPLAT!*« PAUSE «NEXT JîGOTO 670 

652 IF 1=1LET K=80 

653 1F 1=2LET K=40 

654 IF I=3LET I*RND 2»4«K=20*(I*4U10 

655 1 F 1-4LET I=16«K=10 

660 HAIT 2«K=K/(13-U)/2+l T+RND 5+20«F0R P=15T0 K « GCURSDR P « GPR INT 0» 1 27*( PO I NT P>I («POINT <P*1 IOR ÜHEXT P 

665 CURSOR 20IPAUSE K-lOi* »*«PAUSE «NEXT J 

670 IF K-10>XLET X=K-10 

675 S=S+X/5«G0SUB 6E4«At(0)’*'016325iF654509* 

680 A»( 1 )=*02066A2AlF694905*«A*t2)=*046C2ClF6A4A1101*iA*(3 ) r '086C241F6A4A1101* 

685 At(4 )=*201018146A5F3422* 

690 CLS «BEEP 2*PAUSE *♦♦♦ LANCER BU JAUELOT ♦♦♦•«PAUSE 

695 HAIT «PRINT "(SPACE ) Pour incliner le*»PRINT 'jevelot et (ENTER) Pour le* 

697 P=0« PRINT *Ucher...**HAIT 0«CLS 

700 FOR J=1T0 3«»EEP ÜR=O«Y=O«L=0iCLS «GCURSOR IOOIGPRINT 64164 
710 FOR I=OTO 94STEP 2«IF INKEY* =* 

715 IF RAND INT (U-LM )/3)=(I-L+l Ü3LET Y=Y*1«IF Y=5G0T0 735 
717 GCURSOR ÜGPRINT 0!A*(Y) 

720 1F INKEY* =CHR* I3GQTD 750 
730 NEXT 1 

735 BEEP 2, 55«CURS0R I9IPRINT ’SPLATMJiPAUSE «NEXT JîGOTO 780 
750 FOR K=IOOTO I55«GCURS0R KiGPRIHT 0«2i2i2>2l2«NEXT K 

752 1F Y=4LET P=I-85+RHD 5 

753 IF Y=OLET P=l-75+RND 5 

754 IF Y=1LET P=I-55+RND 5 

755 IF Y=3LET P=I-45+RNB 5 

756 IF Y=2LET P=I-40+RNB 5 

757 BEEP 2,22«CURS0R OiPAUSE PI* »*«PAUSE 
760 IF P>XLET X=P 

765 NEXT J 

780 S=S+X/5«G0SU1 6E4 

800 0=0«HAIT OîCLS «BEEP 2«PAUSE * ♦♦♦ 1500 HETRES ♦♦♦•«PAUSE 

801 PRINT M 8 )=*üGPRINT F*î«PRIHT * ( 6 )**üGPRIHT G»I«PRIHT * ( 2 )=*» «GPRINT HtüPRINT * (4)=*««HAIT «GPRINT I* 

805 HAIT 0 

810 CLS «GCURSOR 0«GPRINT *7F4 141* «GCURSOR 98«GPRINT '41417F* 

812 FOR I=3T0 97«GCURS0R ÜGPRINT 73«NEXT ÜGCURSOR UO«GPRINT 127«GCURS0R 50«GPRINT S79« GCURSOR 51 «GPRIHT 160R POINT 51 
815 CURSOR I9JPAUSE *PRET'*«FOR I=1T0 150«IF INKEY* =*"NEXTI«GDTO 819 
817 BEEP 2, 35«CLS «PAUSE "Vous etes Parti troP tot!*«PAUSE «GOTO 810 

819 BEEP I « CURSOR 19«PRINT *GO!H*»TIHE =0 

820 I=51«K=16 

830 IF INKEY* =* 8 *LET K=K/2«IF K=10R K= 8 LET K=K+KMK«10R I<98) 

840 IF INKEY* =*2*LET K=K+K« IF K=640R K=8G0SUB 890 
850 IF INKEY* =’ 6 *LET !=I+1«IF I=100LET 1*1-1 
860 1F INKEY* =*4*LET I=I-1«1F I=OLET I=Ü1 

865 IF 1=50GCURSDR ÜGPRINT *4 14 149"»0=Q+ 1 «GCURSDR 97«GPR1NT *494141 "«CURSOR 19«PRINT «♦JFS)* »*«1F #=4REEP ÜGOTO 900 

870 GCURSOR ÜIF K30R D956PRIHT KOR POINT ÜGOTO 830 

880 GPRIHT 73«K+73i73«GDT0 830 

890 IF K= 8 AND K3RETÜRN 

895 K*K/2«RETURN 

900 A-TIHE ♦1E2«CURSDR 19:PAUSE A«* »n*« PAUSE «S=S+( 1,4-A)*60« GOSUB 6E4 
1000 CLS «PRINT *♦♦♦ SCORE TOTAL=MSTR* INT ( S+50 )+* ♦♦♦* 

1010 HAIT «PRINT «END 

60000 CLS «PAUSE *SCORE=*«INT (S^50 )! * Points* «PAUSE «»=D-25«CLS 

60002 IF PEEK *B002=77GLCURS0R ( 165,D)«LPR1NT STR* INT (S«0)«aCURS0R (0,-330) 

60005 RETURN 

61000 CLEAR ) DIH A*(0 (♦26«A*(0)=*O BECATHLON OLYHPIOUE <♦* 

61010 HAIT 0«F0R I=1TD 25«FDR J=25T0 ISTEP -ÜCURSOR JiPRINT HID* IA*(0),M )«HEXT JiBEEP 1,25-ÜNEXT I 

61021 CLEAR »F*=*00000402?F0204*«G*= J 00080808082A1C08* 

61022 H*=*000010207F2010*« I»=*00081C2A08080808* 

61029 IF PEEK 6B002 0 77PAUSE «PAUSE «RETURN 

61030 TEXT iCDLOR ÜCS1ZE 3«LPRINT •♦♦♦DECATHL0H0LYHPI8 UE»m*«LF 3«GRAPH «SORGN 
61040 LINE (0.0H215, -250),, 2, BSLINE (160, 0H160, -250) 

61042 LINE (20, -2501-120,0) 

61045 FOR I=-25T0 -225STEP -25«LINE (0,1 1-1215,1 UNEXT I 

61050 BEEP ÜlHPUT 'PRENOHi'lHCGLCURSOR f 185,85 XROTATE ÜCOLOR 0«LPRINT LEFT* (H», 8 ) 

61060 ROTATE 0«FOR 1=-25T0 -225STEP -25»GLCURS0R (5,1*5 ULPRINT STR* (-I/25JINEXT ÜGLCURSOR (0,-245 )« LPRINT *I0*«CSI2E 1 
61070 GLCURSDR (25,-21 )«CDLOR 3«LPRINT *100 Hetre»*«GLCURSDR (25,-46 ULPRINT *Sout en heuteur'sGLCURSOR (25,-71) 

61080 LPRINT 'Lencer du Poids": GLCURSDR (25, -96 ULPRINT *S«ut en lon9ueur*« GLCURSDR (25,-121) 

61090 LPRINT *400 Hetree* s GLCURSDR (25, -146 ULPRINT *S»ut « le Perche* «GLCURSDR (25,-171 
61100 LPRINT *110 Hetres Haies** GLCURSDR (25,-196 ULPRINT 'Lencer du disAue*«GLCURSOR (25,-221 ) 

61110 LPRINT 'Lencer du iovelot'iGLCURSOR <25,-246 ULPRINT '1500 Hetres'iCSIZE 2*CDL0R Ü RETURN 


CALCULS FINANCIERS 


Ce programme calcule simulta- 
nément les 5 variables financiè- 
res N, I, PV, PMT, FV. 

Ces variables sont affectées, en DEF, aux tou- 
ches « A » (N), « S » (I), ,, D >» (PV), « F » 
(PMT) et «G » (FV). Il est conseillé de se servir 
d'un normographe (gabarit). Les lettres A, S, 
D, F, G contiennent également les valeurs non 
arrondies de ces variables, l'arrondi ne se fai- 
sant qu'à l'affichage. 

MODE D'EMPLOI 

Entrer une donnée au clavier en mode DEF puis 
taper SHIFT + la touche- correspondant à la 
fonction demandée. 

Exemple : 7,5% annuel : Taper 7.5/12 SHIFT S 
Si vous tapez SHIFT TOUCHE, écran vide (CL), 
vous obtenez, à l'affichage, la valeur actuelle 
de la donnée. Autre méthode : Variable (lettre 
correspondante) ENTER. 

Exemple : pour N : A ENTER 

Pour effacer tout: CLEAR ; partiellement: 

A=0 ENTER S = 0 ENTER etc. 

Les crédits se rentrent en valeurs positives, les 
débits, en valeurs négatives (précédées du 
signe « - »). Le calcul de chaque variable se 
lance par SHIFT TOUCHE de la sus-dite varia- 
ble ; affichage vide (CL). 

CONTENU DES VARIABLES 

A N 
B 1/100 
C 1+1/100 
D PV 
F PMT 
G FV 

H (1 +1/100) t(-N) 

I Entrée de I, comparaison avec S 
J PMT/O/IOO) 

K entrée de FV, comparaison avec G 
L Entrée de PMT, comparaison avec F 
M Entrée de PV, comparaison avec D 
N Entrée de N, comparaison avec A 
O Arrondi affichaqe 
S I 

Z (1-(1 +1/100) t(-N))/(l/100) 


*-» , 
i 


l.’REM "CALCULS 
FINANCIERS" 
ïïREM *N*IjPV, 
PMT » FV* 

3: REM JFV 
1Q:"A"AREAU N: 
IF <NOA>+(N 
< >Q)LET A=N: 
END 

15: J=F-'EïA=LN < 
<J-G>/(J+B>> 
/LN (B+1>:A= 
INT a NT ao 
A+5 >••••' 10): 

■PR INT M N=".!A 
: END 

20: "S"AREAD I:B 
= I-"E2.*C=B+1 : 
if aosaa 
<>0)LET S- 1 : 
END 

25: IF FOOGGTG 
35 

30 : B= < -G-'D > A ( l 
A>-1:GDT0 45 

35: V=(ABS G-ABS 

(FA+IO 1 >*< ABS 

(FA+CO-ABS D 

'• : B=E-9ïV'ABS 
* » 

V 

40: GOSUB E2: E=H 
A-'C:W=(ZF+B+ 
GH>/((EF-ZF> 
/ B-GE > : B=B-W 
ï W=ABS W: IF 
E-7<=WGDTG 4 
G 

45: S-E2B:0=S: 
GOSUB 110: 

PR INT "l=";n 
?" *i":END 


50: "D" ARE AD M: 
IF (M< >D>+(M 
OCOLET D=M: 
END 

55: GOSUB E2:D=- 
FZ-GH:0=D: 
GOSUB 110: 
PRI HT "PV="; 
05" FR": END 

60: "F "ARE AD L: 

IF (LOF > + >:'[_ 
OCOLET F=L: 
END 

65: GOSUB E2:F=- 
(D+GHOZ: fi=F 
: GOSUB 110: 

PR INT "PHT^’* 

? 0; " FR" : END 

70: "G" ARE AD K: 

IF <k< >G> + ((••: 
OCOLET G=K : 
END 

75: GOSUB E2:G=- 
(ZF+D>/'H: 0=G 
•'GOSUB 110: 

PR INT "FV="ï 
05" FR": END 

1 00 : C=B+ 1 : H=C""' ( - 
A : Z= < 1 -H ) .-•'B 
: RETURN 

110: IF OLET 0= 

INT ( E20+ . 5 -• 
•-E2 

120: IF -OLET 0=- 
INT (-E20+.5 
>--E2 

130: RETURN 




AWELE 


L'Awele est joué par les Baule de la Côte 
d'ivoire. Le vrai nom est ALE. Il fait partie des 
Waris africains. 

Disposition du jeu : le tablier (l'écran) comporte 
deux camps de 5 cases chacun. Le camp gau- 
che est celui du 1251. 

On joue avec 30 graines ou coquillages... au 
début, chaque case en reçoit trois. 

Au chaque coup, qui comporte un seul semis, 
le joueur prend le contenu d'une case non vide 
de son camp et sème les graines une par une 
dans les cases suivantes. De gauche à droite. 

Il suffit ici d'indiquer au 1 251 le numéro de la 
case que l'on désire jouer. Les cases sont 
numérotées de 1 à 10. Les cases 6, 7, 8, 9 et 
10 constituent, sur la partie droite de l'écran, 
le camp du joueur. 


Exemple d'un coup : 
avant 2 3 0 1 3/ 1 2 1 3 1 
case ? 9 

après 3 4 0 1 3/ 1 2 1 02 

Si la dernière graine semée tombe dans une 
case adverse contenant une graine, le joueur 
prend le contenu de cette case d'arrivée, y 
compris la dernière graine qu'il vient d'y dépo- 
ser. Il prend également le contenu des cases 
adverses situées avant, si elles contiennent au 
plus deux graines à l'issue du coup. Les cases 
permettant une prise doivent former une chaîne 
ininterrompue. Ces prises constituent le gain 
du joueur. 

Exemple d'une prise : 
avant 1 2 1 1 0/ 1 2064 
case ? 10 

/nb/ : la case 9 ne réalise pas une prise 
après coup 23220/1 2050 
/nb/ : prise des cases 3 et 4 
après prise 23000/12050 

Bien que ce jeu consiste à acquérir le plus de 
graines possible, la règle « donner à manger » 
oblige à ne pas priver son adversaire de grai- 
nes. Cette règle est ici interprétée comme suit : 
la privation est pénalisée si elle se réalise sur 
un coup-prise. 


Exemple : 

avant 1 1 000/0003 1 
case ? 9 

après coup 22000/00002 
après prise 00000/00002 

Le jeu s'arrête sur cette prise illégale, et le score 
du fauteur est diminué du montant de sa prise 
( - 4). Dans les autres cas, le joueur sans graine 
passe son tour (le 1251, bien entendu, effec- 
tue lui-même ces contrôles). 

Le jeu s'arrête lorsque l'un des deux joueurs 
a pris au moins 1 5 graines, ou lorsque le total 
des gains des deux joueurs dépasse 21 graines. 

A tout moment le joueur peut consulter son 
score par la réponse 0 à la question : case ? 

L'Awele nocturne étant réservé aux divinités, 
les hommes ne peuvent jouer que le jour. Si une 
femme veut mettre au monde un garçon, elle 
doit jouer avec un garçon- 

Jack Vimond 
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GOSUB v AVI v : A= i ; B=B< 
8 >-185 6CTQ V AV2 V 
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AVI v 


EXPLICATIONS LIGNE A LIGNE : 


1 à 3 


Initialisation : 3 graines par case 

4 


Tirage au sort du premier à jouer 

10 à 15 


Entrée numérique du coup du joueur, test si passe tour, si 0 affichage 
score 

20 à 50 


Tri du coup, semis de gauche à droite 

60 à 64 


Test de la prise 

70 à 84 


Effectue la prise 

85 à 86 


Pénalisation pour non respect de la règle « Donner à manger » 

90 


Affichage 

95 


Arrêt du jeu : si un joueur a 1 5 graines ou si le total des graines dépasse 
21 

100 à 106 


A qui de jouer ? 

200 


Passage du tour 

201 à 214 


Test si prise ou perte, et test règle « D à M » 

302 à 316- 


TEST si n° case + contenu supérieur à 9 


^STRATEGIE 

Test si case = 1 

400 

|DU PC 

Si 1 er tour jeu aléatoire 

500 à 512- 


Test cases dans l'ordre croissant 

600 à 634-1 


Double tableau, avance et test être pris 

700 à 716 j 

illlili 

Test risque si avance case contenant 1 graine 

800 à 824 1 

! SIMULATION Double tableau, avance et décompte perte 

850 à 870- 


Test règle « D à M » avant prise 

900 

-FIN 

Affichage score 

_ r-m 





UN PEU DE LM 
DANS 
BEAUCOUP 
DE BASIC 


Même si vous n'êtes pas un 
fanatique du LM, vous pouvez 
néanmoins profiter de quelques 
découvertes des maniaques qui 
y engloutissent leurs nuits... 
Voici donc quelques astuces sim- 

I iles et inédites oui vont étendre 
es possibilités déjà grandes du 
Basic de votre PC 1251. Ces 
astuces ne demandent qu'à être 
découvertes sur d'autres modè- 
les. 

VISUALISATION A L'ECRAN D'UNE CHAINE 
DEPLUS DE 24 CARACTERES 

Vous avez sans doute remarqué que l'on ne 
pouvait pas afficher directement plus de 24 
caractères sur le LCD du PC 1 251 , hormis avec 
un programme LM donné dans le dernier N°. 
On peut aussi le faire sans ce programme et 
plus simplement (sans toutes les possibilités 
offertes par le pgm LM), en intercalant la 
séquence POKE &C6DA,32 avant le PRINT 
expression de plus de 24 car. 

La machine se met alors en mode édition 
comme si l'on venait de taper au clavier le texte 
visualisé, et on a la faculté de se balader avec 
le curseur et de lire la suite de la chaîne avec 
les touches : 

[ïH f^j 

Par contre, comme on devait s'y attendre, si 
on tape ENTER la ligne va se trouver interpré- 
tée et donnera le plus souvent un message 
ERROR N°. Il faut donc relancer le pgm par un 
RUN, GOTO, ou DEF étiquette. On peut cepen- 
dant reprendre le pgm en séquence derrière le 
PRINT par ENTER ou CL et ENTER si ERROR. 
En outre si l'on reprend la suite du pgm par DEF 
key et que l'instruction exécutée est un AREAD 


var, la chaîne affichée (par ex. une var B$(0)), 
qui a pu être modifiée par l'éditeur-touches INS 
et DEL est ressaisie. Il s'agit de l'émulation de 
l'instruction LINPUT de certains BASICs. 

SORTIE PREMATUREE ET CAVALIERE 
D'UNE BOUCLE FOR-NEXT : 

Contrairement à d'autres langages (par ex. 
FORTRAN), peu de BASICs admettent que l'on 
sorte d'une boucle autrement qu'avec le NEXT 
et la valeur saturée de l'indice de la boucle. Si 
on essaie de sortir par un GOTO pointant à l'ex- 
térieur de ladite boucle, le niveau va rester 
« empilé » dans le tampon (cf. articles dans les 
N° 8 et 10). Ce qui entraîne souvent un mes- 
sage d'erreur suite au dépassement du maxi- 
mum d'imbrications autorisé. 

Certains BASICs possèdent une instruction 
(POP, EXIT ou autre) permettant de « dépiler » 
le niveau de boucle avant d'effectuer la sortie 
cavalière par GOTO, mais pas le PC 1251. 


SORTIE D'UN SOUS-PROGRAMME 
AVEC RETOUR AILLEURS QU'A L'APPEL 

Il s'agit d'une très mauvaise pratique de pro- 
grammation : on veut lors de certaines condi- 
tions, sortir du sous-pgm non par le RETURN 
classique renvoyant à la sortie du GOSUB appe- 


La solution classique est la suivante ; 
10 FOR 1 = 1 TO max 


IF (condition quitter boucle, vraie) LET 
l=max:GOTO 100 

100 NEXT I 

Ceci est un exemple de solution qui ne convient 
pas si ; 

• le NEXT n'est pas en tête de ligne. 

• on veut aller ailleurs qu'à la suite du NEXT. 

On peut remplacer la fonction POP par : 
POKE &C6F3,PEEK &C6F3-&10 avant le 
GOTO audacieux (ou plus court : X = &C6F3: 
POKE X,PEEK(X-16). 

Voir le pgm 1 de démonstration où l'on veut 
sortir de la boucle comptant de 1 à 5, à la valeur 
3. Essayer d'ôter le POKE en ligne 520, vous 
obtiendrez une ERROR 5. 


lant, mais par un GOTO adr. Cependant, cela 
peut permettre dans l'environnement restreint 
des 3486 octets du PC 1 251 , de gagner de pré- 
cieux octets ou de « simplifier » un algorithme. 
Ici encore, comme avec le FOR-NEXT, il faut 
« dépiler » le niveau de sous-pgm empilé lors 
du GOSUB : 


PGM PRINCIPAL 


SOUS-PGM 


GOSUB S-P- 


IF (condition vraie) GOTO N - 




N : Instruction etc. 




RETURN 
RETOUR SPECIAL 


On peut faire cela avec : 

POKE &C6F4,PEEK &C6F4-4 

Dans l'exemple du pgm 2, si on enlève le 

POKE : ERROR 5 


EXTENSION DE LA FONCTION VAL 

Rappelons que la fonction VAL dont l'argument 
est une chaîne ou variable alphanumérique 
donne comme résultat la valeur numérique, si 
elle existe et si elle figure en tête des caractè- 
res, correspondant à la chaîne argument inter- 
prétée comme du numérique. 


Par exemple : 

VAL"1 23.5" donne le nombre 123.5 
A$ = "1 23.5'':B = VAL A$ charge dans la var 
la valeur 1 23.5, et l'on peut écrire C = 1 +VAL 
A$ qui donne 124.5 etc. 

L'intérêt est, par exemple, de pouvoir stocker 
du numérique dans des var. alpha (ou tableau) 
de façon plus concise. Ainsi pour un fichier de 



Boucle en M 


nombre de 3 chiffres max. (entiers inférieurs 
à 1 000), on aura besoin de 3 octets par nom- 
bre (plus 7 de déclarations de tableau) en utili- 
sant le tableau B$(x)*3 pour les contenir, alors 
que des variables numériques nécessitent 8 
octets. On récupère ensuite les valeurs qrâce 
à VAL. 

Par contre certains micros ont une fonction 
VAL plus évoluée, permettant de fournir la 
valeur numérique résultante du calcul d'une 
expression valide contenue dans une chaîne de 
caractères. Par exemple VAL "1+1” donne 2 
(le 1251 répond 1 dans ce cas) et VAL "(-B+ 
SQR(B*B-4*A*C))/2*A" donne 2 si 
A = 1,B=-3,C=2, etc. 

Il est à ce moment possible de créer un fichier 
alpha contenant de véritables formules. Ou bien 
dans un pgm traceur de graphe de fonction, on 
peut demander l'entrée de l'équation par un 
INPUT B$(0). 

L'astuce révélée ci-après permet d'émuler une 
telle pseudo-fonction VAL évoluée. 

Réalisation : 

• Dimensionner avant tout autre tableau une 
variable B$(0)*80 

• Intégrer le sous-pgm 3 

NB : le N 0 de ligne et l'étiquette n'ont aucune 
importance. 

• Il vous suffit alors de placer comme vous 
voulez une formule dans B$(0), puis de faire 
GOSUB "VAL" (dans le cas du pgm 3) pour 
récupérer la valeur numérique associée dans 
la variable A (équivaut à A = VALe BS(0)), VALe 
étant la pseudo-fonction. 

La formule peut comporter les signes +,-,*,/, 

&< /.,E, , (, et ;) ainsi que toute variable 
numérique telle que A,B,Z,C(1), etc. 

Mais une fonction composée de lettres comme 
SIN.COS, etc. ne peut directement être utili- 
sée. Les amateurs de LM pourront résoudre ce 
problème. La longueur maximale de l'équation 
est de 80 caractères. 

NB : il est concis et plus rapide de réduire le 
sous-pgm à : "VAL" CALL 51 104:RETURN et 
de placer le POKE générateur du LM à l'exté- 
rieur (il suffit de le réaliser une fois), plutôt que 
de laisser le POKE dans le s-p. 

Vous pouvez tester le pgm 4 de test en faisant : 
opération résultat 

1 + 1 2 
1.25E — 2*10 2+B 6.25 si B = 5 
2*(Q=0) + 3*(Q = 1) 2 si Q=0 et 
3 si Q= 1 

François BOESSER 
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SCRAMBLE 


Ce jeu intergalactique crée par 
PISIOX, est le plus fantastique 
jamais programmé sur un PC 
1251/55 (c'est aussi le plus 
long). 

Il allie des possibilités sonores et graphiques 
uniquement possibles en LM. De plus, il exige 
beaucoup de réflexes de la part du joueur ; en 
un mot il est vraiment génial. 

Du fait de sa longueur inhabituelle et qu'il est 
extrait d'un manuel japonais (I/O), le pgm n'est 
pas placé à une adresse permettant de le ren- 
trer, ou de le désassembler facilement avec le 
pgm DESASSEMBLEUR du N° 8. Pour remé- 
dier au premier inconvénient, il suffit d'épurer 
le pgm du N° 8 comme suit. Vous effacez tou- 
tes les lignes sauf les lignes 1 , 31 , 32, 33, 34, 
35. N'oubliez-pas de garder dans la RSV le pgm 
intitulé : PROG 1. De plus supprimer la fin de 
la ligne 32 à savoir le test : IF l> =&C1D0 
END. 

Comme tout SCRAMBLE classique, il s'agit de 
parcourir des tableaux sans se faire bêtement 
tuer. Sur celui-ci, quatre-tableaux sont dispo- 
nibles. Dans le premier vous êtes représenté 
par un trait continu de 5 points et vous aven- 
cez vers une caverne (ou plutôt elle avance vers 
vous) au rythme d'un accompagnement musi- 
cal. Sept touches manœuvrent le vaisseau dans 
toutes les directions (voir ci-dessous). 

Dans le deuxième tableau, vous n'avez que 
trois touches, et vous devez faire face à une 
horde d'OVNI ennemis dans la plus pure tradi- 
tion SPACE INVADERS. Les deux autres 
tableaux doivent être dans le style du N° 1 
puisqu'ils utilisent les sept mêmes touches. 
Mais, je ne peux vous en dévoiler davantage, 
n'ayant pas réussi à passer plus de deux 
tableaux. Riez, vous verrez, c'est pas si facile I! 
Bonne chance. 

J.F.V. 




Tableau 1, 3, 4 



Tableau 2 


Montée 

Tir 


~2~| descente 


BUPÎ? SCRABBLE 
<C> PISIOX I/O 


3DÔ0 
3D08 
3310 
3318 
3320 
3328 
3D38 
B D 3 y 
3348 
BD *8 
3D50 
BD58 
B 336 0 
BD 6 8 
BD70 
3378 
BD80 
3D88 
BD90 
3398 
BDù0 
B D h 8 
B ? B 0 
BD B 8 
3BC0 
3DC8 
BDD0 
BDD8 
33E8 
3333 

llii 

BD>8 
BE00 
3E08 
BEI 0 

il * O 


783*: 
67*2 
2811 
2814 
024 0 
5285 
6103 
1147 

5204 
3810 
C2BA 
1732 

5205 
DA83 
2527 

UBI 

0 4 H F 
0252 
A8:8 
0928 
P 1^5 
DA67 
2067 
0288 
8008 
0031 
-102 
0208 
8 3 B E 
2426 
1 5 1 0 
7828 
0000 
0408 
1020 
0000 


30 1 0 
2808 
0201 
2 4 B 2 
5205 
522C 
0224 
521 1 
3588 
D508 
670A 
1033 
35 1 0 
80F 1. 
6709 
0200 
3 1 1 0 
b i* a y 
8 00 A 
2902 
4 2 r ! 
88 DA 
0 0 2 8 
7403 
5210 
1F02 
0383 
DB24 

Ml 

0606 

333 e 

0302 

0002 

0408 

4020 

0008 


3 r 5E 

245A 

2C8D 

6708 

5205 

6567 

1033 

4352 

0424 

0404 

DA38 

6352 

0404 

EE43 
2905 
4267 
8009 
2804 
5742 
0052 
-124 
2908 
0242 
4929 
F80 A 
0103 
C 8 P 1 
FAÜF 
2426 
-AC" 
5774 
0052 
0102 
1008 
4 0 0 0 
0408 


84 1 A 
6780 
6748 
2803 
5205 
4528 
4352 

1 14“ 

6708 

3588 

3B23 

11.67 

3510 

F1E9 

0231 

0029 

5774 

79BE 

5267 

8380 

26C2 

783F 

8833 
0410 
0200 
80F 1 
F583 

7400 

2426 

4929 

0067 

2 C 9 1 
0402 
1020 
4000 
1008 


3E20 

1020 

1020 

4020 

4000 

y h z y 

4000 

1808 

1028 

1020 

BE38 

0000 

8020 

1028 

4020 

BE38 

4000 

4000 

1008 

1020 

3E40 

1028 

0402 

0408 

0 4 0 0 

B £48 

0000 

0000 

4000 

1008 

3E50 

1020 

1820 

8402 

0408 

BE58 

0408 

1008 

1002 

0102 

BE60 

0000 

0828 

1020 

0402 

izi £68 

0408 

0408 

1008 

1002 

3E70 

0102 

0402 

0408 

0408 

3 E 7 8 

0000 

8000 

0880 

0000 

B E y y 

1 08,2 

0102 

848 A 

0408 

3 £8 8 

0408 

1828 

1 828 

1020 

BE90 

1 8 8 0 

0057 

6788 

2802 

BE98 

3778 

1311 

1 0 C 6 

9257 

3EA0 

405 ? 

3788 

0080 

8000 

CD 

=1 

LU 

(X* 

10C6 

9257 

7 4 0 2 

5237 

3E30 

1 0 r b 

AA57 

4252 

3628 

3 c B 8 

0200 

2803 

0218 

1033 

3EC0 

F652 

7833 

0018 

8809 

BEC 8 

5732 

D218 

BED5 

5210 

BE30 

F "50 

0200 

08 2 A 

1.F37 

3 E j y 

78BE 

ED 7 8 

i 1 E 0 

78BE 

BEE0 

F 3 1 0 

F83F 

5742 

5267 

BEES 

007C 

3ED8 

3712 

5F61 

3£F0 

52DF 

3718 

4000 

0200 

BEF y 

@028 

1 F37 

0000 

0000 

BF08 

18C6 

E557 

7488 

03BF 

BF08 

F 1F1 

2410 

BEF9 

5224 

BF10 

10F8 

3F52 

79BE 

3880 

BF18 

10 B 8 

8802 

0080 

2F! F 

BF28 

7840 

1818 

FF34 

3407 

3F28 

5737 

0 y 0 0 

0000 

0000 

BF30 

78BF 

60FF 

4410 

C6E5 

BF38 

5237 

8808 

0080 

0000 

BF40 

78BE 

B010 

C692 

5767 

BF48 

5138 

8237 

7811 

E879 

B F 50 

jj F 4 M 

0000 

8000 

0000 

BF58 

0000 

0000 

0088 

08F 8 

BF60 

02F D 

422A 

0382 

-010 

3-68 

B F 6 1 

5275 

3003 

Ü5F1 

3F 7 0 

Fi :0- 

C 433 

573* 

0232 

B F 78 

5224 

78Ü4 

1853 

1 8C4 

3F80 

3352 

3700 

0080 

0800 

C 0 0 0 

7747 

4757 

5758 

5058 

Ü008 

1 0 1 0 

5028 

Z 8 2 E 

2E2E 

C010 

2E20 

2830 

2021. 

2728 

C 0 1 8 

2020 

2820 

2036 

3232 

C ÿ 2 0 

2424 

0909 

* 7 - 7 

4747 

C 0 2 8 

4747 

5353 

5858 

5C5C 

C030 

5C5C 

5C4C 

4060 

7079 

C838 

71141 

414 1 

4 1 4 f 

5 r 4 1 

C 0 4 0 

0000 

0000 

8882 

0288 

C048 

8002 

2004 

8040 

8802 

C050 

0828 

0104 

0110 

0040 

Ü058 

4141 

4 1 4 1 

4141 

7 1 63 

C060 

6167 

6367 

6 F 67 

6767 

C068 

67 67 

6767 

6373 

71.79 

C070 

797 D 

7D41 

4141 

4141 

C078 

414: 

4141 

5555 

5557 

C080 

4141 

4141 

4153 

534 1 

C088 

4141 

414 1 

4141. 

5541 


C090 

5541 

5541 

554 1 

5541 

C098 

5541 

55^1 

7541 

4141 

C 0 A 0 

4141 

4141 

5541 

5541 

C 8 A 3 

5541 

5541 

5541 

5541 

C0B0 

5541 

51141 

4141 

4141 

C0B3 

4141 

5541 

55.41 

5541 

C0C0 

5541 

5541 

5541 

5541 

C0C8 

554 1 

5741 

4141 

4141 

C0D0 

4141 

4549 

4953 

4541 

C0D8 

6151 

4949 

4 141 

4141 

C 0 E 8 

4147 

4 1 4 N 

4141 

4171 

C0E3 

7141 

4141 

4141 

4141 

C 0 R 0 

4141 

414F 

4F41. 

4141 

C0F8. 

4141 

4 1 7 II 

41.41 

41.00 

ci 00 

<1761 

7379 

7878 

7163 

Cl 08 

6* 3 6 7 

4?4 1 

4908 

1C8C 

c i : 0 

0 646 

6444 

04 0C 

1808 

C i i 8 

01^1 

7?4l 

6341 

414? 

Cl 20 

474F 

4F 4 n 

5 p l e 

0 F 4 F 

Ci- 2 8 

4767 

634 1 

4000 

0888 

C 1 3 0 

1 C 1 C 

7 ? T ? 

0808 

8022 

Cl 33 

2200 

0049 

4900 

0922 

c 140 

2288 

0014 

1400 

0022 

Cl 48 

2280 

0049 

4908 

8022 

C 1 5 0 

2208 

80 1 4 

1400 

0000 

Cl 58 

8088 

000F 

0F00 

0000 

Ci 60 

7C78 

0000 

0 E 1 E 

8000 

C 1 68 

8079 

734 3 

0160 

7078 

Cl 70 

7C70 

6043 

0300 

00 0 E 

C 1 7 8 

3E3C 

1 C8C 

8464 

6404 

Cl 88 

0440 

4808 

0113 

134 1 

Cl 88 

4880 

8808 

2424 

2433 

Cl 90 

1911 

0380 

0000 

t F02 

Cl 98 

0100 

007C 

5454 

5C80 

CIhQ 

0000 

1715 

1513 

0000 

u l h y 

0002 

02 lE 

0282 

5078 

Ci 38 

0002 

4 6 4 C 

0000 

0077 

C 1 B 8 

7700 

0888 

0073 

7300 

C1C8 

0088 

085 F 

5F00 

0000 

C 1 C 8 

805B 

5B80 

0828 

227E 

Cl 38 

7 E 6 0 

4040 

060 E 

0E1C 

Cl 38 

1 Ç0Q 

0940 

4 8 8 E 

0 E 0 0 

C 1 E 8 

0 8 0 1 

6 i‘ r T 

7100 

0000 

C 1 E 8 

8 8 2 h 

2A08 

0000 

222 A 

C 1 ”0 

2A42 

0080 

0037 

3 7 0 3 

Cl F 8 

0141 

6179 

7161 

4 14* 

C 3 0 8 

7 8 C 4 

90F F 

443A 

05 1 0 

C383 

L 6 9 1 

4B34 

8205 

03F 3 

C3 1 8 

e lE9 

P 1 -5 

8 236 

3424 

C 3 1 8 

262F 

83 1 8 

ij 6 9 6 

821 A 

C328 

4228 

.1.510 

F 8 7 B 

C T .-1 

J 1 

C328 

5282 

80D6 

3 r 2 8 

1 9 1 0 

C338 

C698 

Il 400 

5337 

37 e 1 

C333 

R124 

8363 

88 2 A 

8 4 7 8 

C 3 4 8 

L 4 1 j y. 

1 8 C 6 

9 6 8 4 

1 B 1 8 

C348 

’r y 3 B 

5210 

C692 

0083 

f; T C f m 

8218 

8382 

0434 

0524 

€358 

BA46 

B A 5 2 

2 e 86 

1 0C6 

C368 

9282 

18 DA 

5334 

7A0A 

C363 

C3C8 

6941 

C38B 

42C3 

C 3 7 0 

3 e 4 3 

C3A3 

4 4 C 3 

9346 

C378 

C3A7 

4 7 U 3 

9748 

C3B3 

C388 

4 9 C 3 

AE67 

C3BE 

07C3 


f • 7 »I; Cj 

BBC3 

3E7A 

0103 

9 CDA 

C 3 9 8 

6740 

3883 

315A 

377 A 

C 3 9 8 

07C3 

B4DA 

8463 

0438 

C3A8 

8 2 8 5 

3 77 A 

0 3 C 3 

9 0 3 A 

C3A8 

3463 

3638 

0204 

377A 

C 3 B 0 

09C3 

A8DA 

6781 

3883 

C3B8 

DI 32 

3 75 B 

5B5B 

3A37 

C 3 C 0 

83FF 

8 34 5 

1 0C6 

9282 

C3C8 

1911 

9282 

183 A 

10C6 

C3D0 

9153 

5202 

0334 

8324 

f: 3 B 8 

DA47 

DA 52 

2 F 0 6 

24C6 

C 3 E 0 

33 1 9 

10F8 

7 y y ? 

5518 

f; 7 ? O 

C694 

5744 

1 196 

5744 

C3F0 

5975 

7 7 - 7 » jij 

8 2 4 2 

1 190 

r 3 f i-i 

5237 

473 A 

5218 

C698 

€400 

5742 

2A03 

0 2 ~ 0 

5275 

€4 08 

A003 

C5F1 

Fl 24 

7 x C 4 

c 4 1 0 

1878 

04 g0 

79C3 

8300 

€418 

1 0 C 4 

3FD5 

1164 

t F38 

€420 

:3Dl 

5A74 

4E03 

C 4 F l 

C42-8 

F 124 

1004 

4852 

2418 

G 4 3 8 

C43-3 

3 1 D 1 

5231 

2C83 

C453 

340 1' 

Q32C 

125 e 

■6 1 1 1 

C 440 

j r 6 y 

E e D e 

1 8 1 2 

34 00 

C 4 4 0 

A7 1 F 

0329 

1037 

0080 

C458 

rr 1 

T 128 

E 4 2 1 

3723 

C458 

CA 25 

y l 2 î 

d 22 A 

A72C 

C468 

9C2F 

9232 

8935 

8 1 3 y 

C468 

783B 

713F 

6A42 

6446 

C-470 

53 4 A 

574E 

5153 

4358 

C473 

465F 

4 1 65 

3 L- 6 C 

3972 

C488 

3577 

31 7E 

2E85- 

0080 

C488 

■FF36 

88 F 7 

0 4 F 8 

00C 8 

C490 

10 F 8 

0 A 02 

0000 

3 1 1 F 

G 49 8 

1173 

3400 

1 0 C 4 

8880 

C d A0 

vi 7 y y 

1 8 1 0 

0690 

8819 

C4A8 

F 1 E 8 

3700 

0080 

0000 

C4B8 

1806 

9 6 il - 6 

0728 

0 F 5 7 

C4B8 

D 2 J 2 

32-64 

1F 74 

5 4 0 3 

C 4 f: ÿ 

e 3- r : 

F 1 D 4 

0037 

0000 

C4C8 

6407 

3402 

8831 

322 F 

C 4 3 0 

vi 237 

8880 

0000 

0000 

C540 

0 A 8 A 

0988 

8908 

0700 

C 543 

0687 

0889 

0 A 0 A 

0 A 0 0 

C550 

8 A 8 A 

8988 

8988 

0700 

C558 

0687 

8889 

8 H 0 A 

8A00 

C568 

1006 

F 5 5 7 

03 33 

8345 

C568 

J A 1 i 

3352 

Rica 

~iF9 

C570 

0280 

0050 

i F 02 

98 C 3 

C578 

9C> 1 

EA82 

6634 

FAC F 

C580 

2467 

0828 

8 3 8 2 

11 TA 

C588 

0 FFF 

BC82 

0434 

2426 

C590 

2 e 8 3 

2F i 5 

F 1 9 A 

10C6 

C598 

DC84 

1 3 1 1 

j B 5 7 

3 4 1 0 

C5A0 

C 6 E 5 

5 7 0 3 

y v* j. 

E9“ 1 

C5A8 

F 5 1 8 

C 6 D B 

5734 

2426 

C 5 3 8 

2 F 8 3 

10C6 

3C84 

1 A 2 4 

C5B8 

1 0 L- 6 

3034 

1 3 1 8 

F :3 3 B 

C5C8 

5202 

5034 

f : e 0 

2F03 

C5C8 

2 e 2A 

1 0C6 

E 5 D 4 

8037 



1 : "A '8=0: *i=-500: C=&C56 

0: RES T ÜRE 8 

2 î GOSUB 9: R EAU r-i : IF 

*i=0 RESTCiRE S : R E A D 

3: IF f’' = l GO”Ü 4 9 
4 : P G K E &C48F ? M : C ALL & 
C 3 S ô : B = P E E K & C 6 9 0 : W 
=ui+3: 3=0 &AJÏ 0: 

A $ = v G O - E X T • : C A L l C 
: BEER 0: BEER 0: 
GOTO 2 

5 > w AI” 0 : A = 0 : C A L L C : A 
$ = " E n D v ï CALL Cs 
3EE P 0: BEER 0s A$= M S 
CÜRE= M : CAll Cs BEER 
0 1 RRJKjT A $ ï w : C A L L 
4576: BEER 0s BEE P 0 
: BEER 0 

6:1 e h < & L E T H=uj 
7 : A J = v H I ÿr = v : CAL L C : 

BEE? g- M: 

C- A l L 7 4 3 T : G O T Ü v A " 
8: DA T A &C0* 1 » RnTi 48 + 7 
9 !» L 1 !» 0 

,'î 1 ]fî ~ L«i + 5 VI 0 ï S = S + 1 ï A :£ = T 
AGE y + STPi s: Un"” 

0 ! Nr* i N T " — f *' S ij V A ''1 
3 l E ■" : u AIT 1 5 : CA L L 
C: BEER 0: BEER 0: 


“■ “ — 

| ! P H 

4 9 : = " 

CAll i-vB c 18: 3=5. 

5 1 s Ch ■_ 

L 4576 : CAL _ &BF 

8 : 

G0"Ü 1 0 B 


5 2 : .«i = u + REE K & 8 0 0 9 : 

GO T Ü T 

53 : A s = " G Ü E X T " : u AIT 0 

: CAll C: BEE D 0: 
BEER 0: GO T ü 2 


f 


JggË 

CLASSEMENT ALPHABETIQUE DESSIN ANIME 


Ceci est un exemple de ce que peut apporter 
la rapidité du LM. En effet, cet utilitaire se 
charge de classer 200 mots en 27 secondes. 
On peut classer jusqu'à 255 mots de 12 let- 
tres maximum. 

Une fois le LM et le Basic entrés par les moyens 
habituels, faites RUN. Ensuite, entrez les mots 
à trier les uns à la suite des autres. Lorsque la 
liste est finie, tapez ENTER. Le classement s'ef- 

10:C;_.EAR : Dïm 3s (255)* 

28; y 9 v N=%+i : I Npijï 3s(2 
55 -n) ; ~~ K. <255 T h E ^ 



Voici un petit programme pour PC-1 2xx. En fait 
il s'agit d'une tentative de performance dans 
la miniaturisation. Beaucoup de travail, pour 3 
lignes de basic. 

Le mode d'emploi est simple : Régler le con- 
traste au maximum, faire RUN, attendre le 
BEEP (environ 25 secondes d'initialisation) et 
appuyez sur n'importe quelle touche (sauf 
ENTER, CL, des flèches, DEF et SHIFT) pour 
lâcher les bombes. 


fectue et s'achève quelques secondes après. 
Si vous voulez rajouter un mot : DEF S. Ecrivez- 
le puis ENTER ENTER. Il viendra prendre rapi- 
dement sa place dans la liste triée. 

Le programme est facilement modifiable. Pour 
le transposer, modifiez, outre les adresses dans 
le Basic, les adresses des JP ET CALL en fin 
de programme (à partir de &B94E). 

; K 1 HLr l r i H 


3 8 E 0 

0 0 0 1 

84 li 

1088 

0083 

o C O 

-j O i_ 

A 004 

1808 

8184 

1. 3 1 2 

38F0 

$ £ j/|ÿ 

03 A0 

0419 

8881 

38F8 

H 4 1 3 

1 008 

0 8 0 B 

h 8 8 4 

3980 

1937 

9082 

h 7 U 3 

9182 

3908 

C5DS 

9070 

0C2A 

0458 

3910 

7001 

9 163 

C528 

8751 

3918 

63 C 3 

2802 

3780 

8 1 1 3’ 

3928 

1092 

8892 

700C 

2 A y 4 

3928 

5070 

0193 

63C5 

2 y y 6 

3938 

5 1 63 

CF39 

2A80 

8384 

3938 

1310 

0888 

020C 

DBA0 

3940 

0655 

' / à. P 7 

2804 

4929 

3948 

8905 

24C? 

2A04 

7 H H o 

3958 

E079 

3923 

0800 

8808 


10:5=0: FOR 1=5 "0 5 





Voici un court programme LM pour PC 1 251 
de Johan Kovacs affichant un petit dessin 
animé. 

Que représente-t-il ? 

Vous ne le saurez qu'après l'avoir tapé sur 
votre poquette. La curiosité vaut bien un petit 
effort, non ? 

Pour lancer le pgm : CALL & C 100 
Pour arrêter le pgm : BRK 


DESSIN ANIME 


C 1 8 8 

r y 1 1 

E888 

3 B 8 2 

8 8 1 Ci 

C 1 88 

F Si 00 

1 :r 08 

33 1 1 

401F 

Cl 18 

1266 

82 cc 

D 3 5 8 

8 2 '”7 

L- 1 1 b 

3383 

05C3 

2884 

79Ü1 

C 1 2 0 

0078 

Cl 58 

7 y u i 

9878 

U 12 b 

Cl 88 

7sn 

6 8 7 8 

Cl 30 

Cl 30 

78 G ! 

8878 

C178 

7R C 1 

f : 1 F h 

9 y 7 y 

Cl 88 

6 3 y y 

3382 

Cl 40 

3779 

U 113 

0808 

8888 

C148 

8880 

8088 

0888 

8880 

Cl 58 

y 2 4 4 

2 6 8 2 

2226 

821F 

Cl 58 

2682 

3426 

0204 

2637 

C168 

8224 

2682 

2226 

021F 

u 1 6 y 

2 6 8 2 

1 226 

y 2 24 

2637 

C170 

8214 

2682 

2226 

021- 

c 1 78 

2682 

2 4 2 6 

8244 

2637 

ij i y y 

8707 

8787 

0782 

8826 

Cl 88 

2626 

2626 

3788 

0888 

C 1 9 8 

00C8 

4 123 

8237 

4 EF F 

Cl98 

2387 

8 8 8 8 

0888 

8088 


Philippe Pierson 



1251 (ERRATA] 


f„ l "”L it *,j*. <|IK ' l y ,>t P**?* japonais de ce maaoel nous a 

iâasSjfeï bsts’srss 

rence » du PC 1251, l'editeur « m extenso ». 






320 : CALL& CAI 

WêêèÊêèèèèêBSÈ 





CORRECT 


EGISTER 


320 : CALL& Cl 00 

WÈÊÊÊÊÊÊÊÊÊBÊBÊk 


Addr Machine Code Label Mnemonic Operand(s) Commente 

l l l i l ï 


"Cl OC 10C6A0 


LIDP C6A1 "Window" 
address 

i l ? l 


Cl 12 78 Cl 1 D © CALL 


convert 
high nibble 


Addr Machine Code Label Mnemonic Operand(s) Comments 

l l l l î l 


*C10C 10C6A0 
Cl 12 78C11D 


LIDP C6A0 "Window" 
address 

l ? I l 

CALL © convert 

high nibble 


20 : INPUT "BYTES?" ;3 
30: FOR I = OTO <3 - I) 

IHfîliliBiiMiH 


20 : INPUT "BYTES?" ; B 

30 : FOR I = 0 TO (B — I) 

First enter and execute the program from 
line 400 listed on the next page, and then 
execute this program. 


420: 

POKE &C10C, &10, &C6, &AQ, &57, 
&34, &58, &78, &C1, &1C 

420: 

POKE &C10C, &10, &C6, &A0, &57, 
&34,&58, &78,&C1,&1D 

430: 

POKE &C1 14, &5B,&78, &C1, &1C, 
&02, &00, &26, &37 

430: 

POKE &C1 15, &5B, &78, &C1, &1D, 
&02, &00, &26, 8t37 

440: 

POKE &C1 IC, &64, &0F, &34, &75, 
& OA, &3A, &06 

440: 

POKE &C1 1 D, &64, &0F, &34, &75, 
&0A, &3A, &06 

450: 

POKE &C1 23, &5B, &74, &47, &2C, 
&04 

450: 

POKE &C1 24, &5B, &74, &47, 8t2C, 
&04 

460: 

POKE &C1 28, &5B, &74, &40, &26, 

460: 

POKE &C129, &5B, &74, &40, &26, 



LE TABLEUR 


Le mot tableur est peut-être un peu fort pour 
le programme que contiennent les PC-126x. 
Mais il permet au niveau d'un pocket la pro- 
grammation de fonctions sans passer par une 
phase de programmation. 

Pour utiliser le tableur, c'est très simple. On se 
met en mode PRO et on écrit sa fonction en 
la faisant précéder du caractère « # » 

Pour bien utiliser ce programme nous allons 
vous donner quelques informations supplémen- 
taires par rapport au manuel. 

Tout d'abord, il est préférable de programmer 
des fonctions en minuscule. En effet, ainsi vous 
pourrez mettre des noms complets pour les 
variables sans risque qu'un mot clef soit 
reconnu. 


Exemple : 

# Maison = loyer + charges + gaz + eau 
+ élec + téléphone. 

# Remise = total *.2. 

Pour le second exemple, s'il avait été saisi en 
majuscule, 1 mot clef aurait été reconnu : REM 
et TO. Une ligne de fonctions peut contenir 
jusqu'à 10 zones. Sur une ligne vous pouvez 
mettre 10 variables qui peuvent avoir de 1 à 
7 caractères. 

En exécutant manuellement un USING « # ff ... 
avant de lancer une fonction vous pourrez for- 
mater celle-ci. 

Dans une fonction vous pouvez utiliser outre 
les opérations courantes (+, -, les 
instructions suivantes : 

ABS ATN TAN EXP DEG SÛR 
INT ASN SIN LOG DMS PI 
SG N ACS COS LN 
Les instructions et opérateurs comme AND. 
OR. NOT. RND et PEEK... sont interdits. 

Voici quelques petites fonctions, faîtes nous 
parvenir les vôtres. 


3tP! ï !T= INT <.S+PV*i/(l-(i 

+j/100>rt- n ))/10g;T ota i_ 

PMT*n 

#Vfl»s=1000*D i st/(An*3l557 
600+2629300*00 i s+86400* 
Jour +3600*H+60*M+S > : Vkh 
=3.6*Vms 

JDifdate* INT <-<Jourl+3 
0.6*Moisi+365.25*Anneel 
)+< Jour2+30. 6*0o i S2+365 
.25*ftrmee2)> 

JtOov 100k=Lj t re/K(a*180 
POTî Cas eu! du paiement 
mensuel d un crédit 
Vms: Vitesse en fonction 
d une distance et 
ci un temps 

Difdateî différence en- 
tre 2 dates 

Mo* 100k: mosenne kilomé- 
trique 


START MOGURA 


Vous allez en prendre plein la vue et les oreil- 
les, heureux possesseurs de PC 1401, avec ce 
jeu en LM graphique et sonore. Basé sur les 
réflexes, il s'agit de dégommer les petites figu- 
res qui apparaissent au hasard sur l'une des huit 
premières matrices de l'écran. Pour ce faire, 
appuyer sur la touche de Z à SPC correspon- 
dant à la position sur l'écran. 

MODE D'EMPLOI : 

RUN. Répondez à la question SON (0/N) : 
par oui ou non (0 ou N) selon votre option. 
Réglez ensuite la vitesse (niveau de difficulté) : 
VITESSE 0-3 en accord avec votre dexté- 
rité. Puis, attendez le CHARGEMENT du LM et 
attention, ça part très vite. 

Votre score s'inscrit ensuite à la fin du jeu et 
une pression sur ENTER permet de recommen- 
cer. On peut arrêter le programme par BRK. 
Visez bien, pas d'affolement et surtout 
concentrez-vous. 

1 2 3 4 5 6 7 8 

Z X C V B N N SPC 


5: (C) I/O SEP 84 

10SPOKE £2600,£1C,£24,£ 
2C,£00,£07,£0D,£12,£ 
16 

20SPOKE $2720» £40, £40, & 
40, £40, £40, £70, £28, £ 
08, £28, £70, £7E, £05, £ 
0! ! £05, £7E 

30:POKE £272F,£44,£28,£ 
00! £23i £44 

40:INPUT "SON (0/N): "SA 
*:U=0:IF A*=”0“ IET 
U=£10 

50: INPUT "VITESSE 0-3:” 
î V: V=£28+V*8 

60: PAUSE ” CHARGEME 
NT”:CALL £05A2:S=£24 
FF 

70: RE AD M: IF M<999 LET 
S=S*l:POKE SjCUGOTO 
70 ' 

80: PRINT “START MOGU 
RA" 

80: CALL £2580:PRINT “PO 
INT=" î PEEK £270î: 
GOTO 80 


100: DATA £10, £27, £0C, £02 
! £00, £52, £1 1 ! £0B! £52 
i£l 1 ! £20! £80! £1 Fî £9j0 
i£18.!£E5!£A2!£10 

1 10: DATA £27 s £0Ci £57, £42 
! £52! £67! £32! £28! £02 
*£37, £11, £00, £02, £10 
! £00! £08! £1 Fi £78 

120: DATA £25, £93, £78, £25 
!£82.-£4E!£FF!£43!£29 
! £04, £78, £25, £82, £64 
• £07! £10! £27i £0F 

130: DATA £52!£03!£26! 
!£70!£24i£ 10!£27!£0E 
! £52, £02, £15, £78, £25 
i £4C,£02, £1A, £78 

140: DATA 

! £78.i £25, £AD, £00 ! V! £ 
E4!£8Fi£8F!£DB!£10!£ 
27, £0E, £57, £C7 

150:DATA £38! £05! £41 ! £29 
!£0D!£37!£5B!£5B!£02 
!£1F!£73!£25!£AD!£10 
! £27i £0B!£57! £42 


160: DATA £52î£02!£00!£12 
> £5F, £10, £25 ! £78! £61 
>U,£DF,£4E,£00,£60,£ 
01,£DF,£42,£52 

£29!£0B!£2Di£70 
» & 1 0j £27! £10 ! £34, £ i B 
!£85,£60!£9F,£61,£90 
,£25, £10, £27, £10 

180:DATA £84,£1B,£37,£02 
,£00, £03, £60,£E2, £78 
,£03, £27 , £E2, £70, £03 
,£05, £24, £30, £59 

£26,£50,£C3,£29 
,£05, £84, £63, £08, £29 
,£0E,£37,£34,£10,£27 
,£0F,£57,£03,£27 

£E2,£78,£5B,£26 
,£79, £25, £93, 999 


£E2 190: DATA 


£25,£4C,£2D,£3A 200:DATA 


170: DATA 




• LE MICROPROCESSEUR 

Par bonheur, le microprocesseur qui équipe 
notre 1401 est le même que celui monté sur 
le PC 1 251 , beaucoup d'articles de nos bulle- 
tins y sc^t consacrés ; le manuel de référence 
du langage machine 1251 est églament appli- 
cable, pour le fonctionnement du microproces- 
seur, au PC 1 401 . La grande majorité des pro- 
grammes L.M. du 1251 ne faisant pas appel 
à la ROM sont également adaptables en modi- 
fiant les adresses d'implantation en mémoire 
selon un principe très simple : bit 15 de 
l'adresse d'implantation = 0. Exemple : 
&C100 deviendra &4100. 


PC CURIEUX 

Tripatouillage 

A titre de divertissement, essayez la séquence 
suivante (mode RUN) 123 HEX SIN SPEC j 
(Miracle ! oh le joli dessin..) ; vous pouvez 
essayer de trouver d'autres variantes... 


PC PRATIQUE 

Coordonnées 

Le PC 1401 permet la transformation 
rectangulaire-polaire et réciproquement. La 
transformation cartésienne-cylindrique est 
immédiate ainsi que sa réciproque. Quant aux 
coordonnées sphériques, on a : 


* QUELQUES PROGRAMMES 

Liaison RUN-CALL 

65278 : « J » CALL &4100 : END 

65279 : « K » CALL &41 10 : END 

&4100 00 07 10 46 A8 90 18 11 

&4108 AO 90 19 37 

&4110 00 07 10 46 AO 90 18 11 

&4118 A8 90 19 37 


DEF « J » fera passer la mémoire du mode 
« cal » dans la mémoire ANS du dernier résul- 
tat calculé en mode « run » (accessible par t 
ou | ) 

DEF « K » fera l'opération inverse 

Ces programmes sont totalement relogeables. 


Inversion vidéo 


(demande des talents de cryptographe) 


&4100 

02 

XX 

03 

YY 

E2 

70 

24 

F2 

3E 

67 

FF 

28 

02 

37 

83 

DB 

&4110 

59 

00 

00 

67 

08 

3A 

07 

00 

40 

03 

OF 

45 

59 

82 

44 

44 

&4120 

83 

44 

DB 

80 

44 

DB 

03 

60 

E2 

70 

E2 

78 

02 

04 

34 

24 

&4130 

83 

60 

00 

42 

45 

DB 

26 

2F 

09 

F2 

3E 

2D 

36 





Mettez à l'adresse yyxx (soit « adresse 
YYXX ») et suivantes les numéros n des carac- 
tères à inverser (n entre 0 et 1 5 ; dimension 
de l'afficheur I) suivis de &FF (ne pas oublier). 


Un CALL &41 00 exécutera le programme (tota- 
lement relogeable). Si vous voulez voir quel- 
que chose, n'oubliez pas de le faire précéder 
par un CALL &5A2 qui allume l'afficheur... 



P E3I E) GU CO CD CD 03 ■ 

CÈ3 CÉ3 CÈ3 CÉ3 CÎ3 CÈ3 CÉ3 CO CÉ3 EÉ3 


» ..'lilM. .^1, Z" 

cil foi tri r p fjp rry 
ç>p Çjj faî fil rai 


no eu cii 




3 


aaaÉffes 

BBBBll 



(x,y,z) (r,<r, e ) par R = POL(x,y):P = z:R = P0L(R,H) 

X,Y,H R, Z, P 

et 

(r, ,) (x,y,z) par X= REC (R,T):H =Z:X -REC (X,P) 

R, T, P X,Z,H 




^l0Êl 


UNE HISTOIRE DE CODES ASCII 


Un code ASCII, personne ne me contredira, 
c'est une valeur de 0 à 255, donc sur un octet, 
qui caractérise un caractère. Frappons au cla- 
vier du PC 1350 : Z$ =CRH$ 246, Z$ =Z$ +Z$ 
Z$ = Z$+Z$ 

La variable Z$ devrait contenir 4 petits coeurs, 
et on n'en obtient que trois ! 

Non ce n'est pas une bogue, mais tout simple- 
ment le résultat d'une tronquature. En effet, 
tous les caractères dont le « code ASCII » est 
supérieur à 1 28 sont codés en réalité sur deux 
octets. Le premier code est FE (254 en déci- 
mal), le second est le code ASCII. Résultat, 4* 
2 cela fait 8, et l'on dispose que de 7 octets, 
l'ordinateur à donc du tronquer la chaîne. 

Donc pour les variables alphanumériques, il ne 
faut pas compter en caractères, la preuve, mais 
en octets : 

1 octet si le code est inférieur à 128 

2 octets si le code est supérieur à 128. 

Mais si les caractères à partir de 1 28 sont 
codés sur deux octets, ce n'est pas pour le plai- 
sir de perdre de la place, non, il doit exister 
d'autres caractères codés eux sur un seul 
octet. 

Par CHR$ la situation est bloquée, il va donc 
falloir utiliser l'instruction POKE. Et là, on 
découvre que les caractères de codes ASCII 
supérieurs à 1 28, codés sur un octet corres- 
pondent aux mots clés du basic. On peut donc 
établir la liste des codes des fonctions basic. 

Mais le plus intéressant, c'est finalement que 
pour le PC 1 350, une fonction basic n'est rien 
d'autre qu'un caractères alphabétique, ce qui 
peut permettre pas mal de manipulations. Pour 
vous en convaincre, frappez au clavier : 

SIN « ENTER » 

puis récupérez l'instruction SIN et introduisez 
la dans une variable. 

A$ = « SIN » « ENTER » 

et enfin LEN A$ « ENTER » 


Vous obtenez 1 , votre variable ne contient que 
le caractère qui défini le mot clé, mais à l'affi- 
chage vous avez (SPACE) SIN (SPACE). 

CONCLUSION 

Vous trouverez ci-dessous (ou dans les envi- 
rons), la table des codes des mots clés du 
basic, ainsi que des tables de caractères obtenu 
en forçant le code FE ou au contraire en 
l'éliminant. 

Je pense que l'on peut creuser encore dans 
cette voie, mais déjà ces résultats autorisent 
des manipulations intéressantes dont vous sau- 
rez tirer partie, j'en suis sûr. 

Pascal Abrivard 
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L'AFFICHEUR 


L'INTERFACE 

SERIE 

DU PC 1350 


GESTION DE 


MELANGE DE TEXTE 


Quelle interface série ? Et bien oui, celle de 
droite ou celle de gauche ? En effet le PC-1 350 
est équipé de 2 interfaces série. Une que nous 
rencontrons maintenant sur tous les PC (sauf 
1 500) et qui permet de communiquer avec les 
CE-1 24 et CE-1 26P. Elle se trouve sur le côté 
gauche. Sur le côté droit on peut rencontrer un 
connecteur 1 5 broches qui est aussi une inter- 
face série. Mais celles-ci à l'avantage d'être 
plus standard puisqu'il s'agit en fait d'une 
RS-232C. 


RS-232C... 

Mais pourquoi ne pas avoir mis un connecteur 
normalisé ? Tout simplement parce que cette 
RS-232C n'entre pas dans les normes de l'ElA 
tel qu'elle est là. La RS-232C, c'est une inter- 
face série qui va comporter un certain nombre 
de paramètres qui répondent a une norme pré- 
cise. Une des règles définissant cette norme 
Nous dit que les signaux, transmis sous forme 
d'une tension devront être compris entre - 2 
et - 1 2 volts pour un « 0 » et entre + 9 et + 1 2 
volts pour un « 1 ». Or le PC-1 350 n'est ali- 
menté qu en 6 volts et les composants qui 
aurait pu augmenter cette tension lui aurait con- 
sommé trop de courant. C'est pourquoi Sharp 
a préféré laisser cette RS avec des niveaux de 
tension correspondant aux composants élec- 
troniques. C'est-à-dire 0 volt pour un « 0 » et 
5 volts pour un « 1 » Ces niveaux sont TTL et 
c'est pourquoi il est dit de cette RS-232C du 
PC-1 350 qu'elle est TTL. Alors ce petit con- 
necteur 1 5 broche a été mis pour 2 raisons : 
tout d'abord parce qu'il est dangereux pour 
votre PC de le brancher sur une vraie RS-232C 
et puis aussi parce qu'un connecteur DB 25 
c est si gros que sur le PC-1 350 cela n'aurait j 
pas fait très joli. 

Mais que peut-on faire avec une RS-232C 
TTL ? La connecter sur d'autres RS-232C TTL, 
car beaucoup de produits fonctionnent avec 
une telle RS mais là, c'est une autre histoire 
que nous verrons la prochaine fois. f 


Lorsque I on affiche à l'écran à l'aide des fonc- 
tions PRINT, PAUSE ou INPUT, on efface une 
partie de ce qu'il y a l'écran. 

Exemple : 

! LINE(0,0)-(149.31).X.BF :REM inverse 

l'écran 

20 CURSOR 56 : PRINT « S » : efface l'écran 
à partir de la 56 e position. 

Ceci est du au fait que le PC travaille dans deux 
modes qui ne doivent normalement pas être 
mélangés : un mode texte et un mode graphi- 
que. pour des jeux, il est quand même intéres- 
sant de pouvoir afficher un score ou d'autres ! 
indications en graphiques. Plusieurs solutions j 
s'offrent à vous : j 

• faire les graphiques en haut de l'afficheur de 
façon à pouvoir utiliser la ou les dernières 
lignes de I écran, (cette méthode est utilisée ! 
dans le jeux que nous vous proposons). I 

• recréer en GRINT dans un tableau les carac- i 

tères que vous voulez afficher. j 

• utiliser le sous-programme suivant qui affi- j 
chera la chaine A$ à la position X. ! 

A bientôt pour d'autres utilitaires graphiques. { 

... .... I 

5 ; Y= INT <X/24)*8: X=(X i 

-Y*3)*6+6: GCURSOR < j 

XïY+7): FOR 1 = 1 TO I 

LEN A$: 8= ASC NIB$ i I 

A$>I» 1)*5+&7FEE j 

6: WAIT 0: FOR J=S TO S ! 

-4 STEP -1: GPRINT i 

PEEK j; : NEKT J: i 

GPRINT 0j: NEXT I: i 

RETURN | 

5s Y® INT <X/24):X=(X-Y ! 

*24)*6+6:Y=(Y+l)*8-l i 

: GCURSOR <X> Y) : f 

FOR I®1 TO LEN A$: 8= j 

AbL MID$ ^ A$ » I j 1 > *5+ j 

S7FEE ‘ | 

6: MAI T 0: FOR J=S TO S j 

-4 STEP -1: GPRINT j 

PEEK J î : NEXT J: j 

GPRINT 05: NEXT I; i 

RETURN ! 


INVERSEZ DES MOTS 

Dans certaines applications, il est parfois inté- 
ressant d'attirer l'attention de l'œil sur une par- 
tie d un texte. La solution la plus simple est de 
passer un coup de surligneur (pour ne pas citer 
une marque). Sur un écran on pourra surligner 
en passant le mot désiré en inversion. Le sous- 
programme permettant ceci est en ligne 290, 
le reste n'étant là que pour vous montrer ce 
que l'on peut faire avec : vous pouvez dépla- 
cer le curseur (zone inversée) ou vous voulez 
sur l'afficheur grâce aux touches 8, 2, 4 et 6. 
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LANGAGES/FORTH 


FORTH, véritable langage du 
« quatrième type », comme 
l'indique l'origine anglo- 
saxonne de son nom (FOURTH), 
est apparu à la fin des années 
60 . 


En effet, toute la magie de FORTH réside dans 
cette faculté de rajouter des fonctions, des 
mots FORTH, lorsqu'on en a besoin. Le langage 
FORTH peut donc s'assimiler à une boîte à 
outils qui permet à son utilisateur de créer de 
nouveaux outils au fur et à mesure de ses 
besoins. Et encore mieux, ces nouveaux mots 
ou outils FORTH pourront, eux aussi, servir à 
en construire d'autres, et ainsi de suite... 

En résumé, on peut dire qu'un mot FORTH est 
bâti sur le principe des « matrioschkas », vous 


Son créateur CHARLES HENRY 
MOORE définit sa principale 
possibilité comme étant 
d'« ajouter n'importe quelle 
fonction lorsqu'elle se révèle 
nécessaire ». 


savez, ces petites poupées russes qui s'emboi- 
tent les une dans les autres. 

FORTH est donc un langage sans programme, 
les mots créés pour réaliser une application pré- 
cise remplacent tout à fait avantageusement 
celui-ci. 

Avant de traduire en exemples concrets tout 
ce que nous venons de dire, continuons d'ex- 
plorer les principales caractéristiques du lan- 
gage FORTH. 


que des lignes de 64 caractères, ignore les tou- 
ches de déplacement du curseur ainsi que le 
mode insertion et les touches « AUTO- 
REPEAT ». 

La figure (1 b) vous montre l'évolution de la pile 
après chaque introduction. Comme vous pou- 
vez le constater, après le retour chariot, la pile 
est vidée automatiquement, là aussi, il s'agit 
d'une spécifité d'EDIFORTH. Rassurez vous, 
ce langage est stylé, il n'effectue le « ménage » 
qu'après le départ du dernier invité, comme 
vous le montrent les figures (2a) et (2b). 

En effet, nous venons de faire connaissance 
avec notre premier invité FORTH, pardon, MOT 
FORTH, en la personne de Ce mot a pour 
fonction d'afficher le nombre situé au sommet 
de la pile. Celui-ci est effacé de la pile après 
son affichage à l'écran. Le nombre 1 0 qui n'est 
pas affiché par un mot est, lui aussi, effacé 
de la pile lors de la fin de l'interprétation et du 
passage en mode attente commande. 
Maintenant que nous savons comment fonc- 
tionne cette pile, nous pouvons étudier le mot 
bien connu des habitués du BASIC. 
Comme vous le montrent les figures (3a) et 
(3b), ce mot multiplie entre eux les 2 nombres 
du sommet de la pile, les efface et dépose le 
résultat sur cette dernière. 


• FORTH met sur une « pile » toutes les don- 
nées qu'il manipule; ce que fait également votre 
BASIC préféré, mais sans vous le dire... Cette 
pile fonctionne exactement comme une pile 
d'assiettes sur laquelle vous déposez la vais- 
selle fraîchement lavée, c'est-à-dire vos don- 
nées. Vous les reprenez ensuite, et la dernière 
rangée sur le dessus de la pile se trouve alors 
la première reprise. 

• FORTH range dans son « dictionnaire » tous 
les mots que vous pouvez être ammené à créer 
lors de vos applications. Un FORTH, telle la ver- 
sion d'EDIFORTH qui vous est présentée ci des- 
sous, comprend environ 300 mots dans son 
dictionnaire de base. 

• Aussi bien pour lui même que pour les appli- 
cations qui sont construites avec, FORTH est 
très peu gourmand en mémoire; ainsi, EDI- 
FORTH et ses 300 mots n'occupe que 10,5 
Koctets un MZ 700. 

• Parlons maintenant rapidité d'exécution : 
EDIFORTH, sur un MZ 80K parcourt une bou- 
cle de 1 à 10 000 en 1 seconde; en BASIC 
5025, 14 secondes sont necessaires pour 
effectuer le même travail. Enfin, FORTH offre 
la possibilité d'écrire des jeux vidéo avec une 
rapidité d'affichage proche du langage machine 


et la facilité d'utilisation d'un langage évolué. 
• La façon dont FORTH gère la mémoire de l'or- 
dinateur et les mémoires extérieures de ce der- 
nier est particulièrement remarquable. En effet, 
pour FORTH, la ou les mémoires qu'il utilise 
constitue une suite d'écrans qui peuvent être 
affichés et modifiés à volonté et sont gérés 
sous forme de mémoire virtuelle; c'est-à-dire 
que lorsque vous désirez disposer d'un écran 
précis, FORTH saura toujours où le retrouver, 
soit dans la mémoire interne de l'ordinateur, 
soit dans sa mémoire de masse extérieure : dis- 
quette ou cassette, par exemple. 


COMMENT FONCTIONNE FORTH. 

La figure (la) représente l'introduction des 
nombres 10 et 4 sur la pile ('"' pour le retour 
chariot "CR"). L'interpréteur FORTH renvoie 
le message de bonne fin "(OK)" si aucune 
erreur n'a été détectée. Le symbole ">" est 
un marqueur de début de ligne qui permet à 
l'éditeur d'EDIFORTH de prendre en compte 
des lignes de mots pouvant avoir une longueur 
maximale égale à un écran. Contrairement à 
EDIFORTH, le FIG-FORTH standard ne connait 
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Vous préférez les textes aux nombres ? Qu'à 
cela ne tienne, le mot vous le permet ainsi 
que vous pouvez le remarquer sur la figure (4). 

Arrivé à ce stade, une précision s'impose : Un 
mot FORTH doit toujours être séparé de ce qui 
le suit par, au moins, un espace. Ce dernier est 
le seul séparateur reconnu par ce langage; ce 
qui vous explique la présence d'un espace entre 
le mot, et le message « BONJOUR ». Comme 
pour le mot « PRINT » du BASIC, le texte à affi- 
cher doit se terminer par « " ». 

A propos de « PRINT », pourquoi ne pas rem- 
placer le mot « . » pas très significatif, 
avouons-le, par « PRINT » ou « AFFICHE » ? 
Rien de plus simple, à l'aide des nouveaux mots 
FORTH « : » et « ; » qui indiquent le début et 
la fin de la définition d'un mot. Ainsi que l'in- 
dique la figure (5), il est facile, en FORTH de 
faire effectuer la même chose à un nouveau 
mot, que celle faite par un mot déjà existant 
dans le dictionnaire. L'avantage est que ce mot 
est créé par vous avec le nom que vous sou- 
haitez; neammoins, le mot d'origine existe 
encore et peut toujours être utilisé. 

Comment, arrivé à ce stade de la découverte 
de FORTH, résister à l'envie de créer de nou- 
veaux mots ? C'est pourquoi nous vous livrons, 
sans commentaires, les figures (6a) et (6b). 



Maintenant, pour ceux qui veulent savoir ce 
qu'ils peuvent faire avec FORTH sur leur MZ, 
voici 3 exemples d'écrans extraits de la dis- 
quette MASTER EDIFORT en version MZ 80K. 
- Ecran N4 (figure 7) : 

Celui-ci vous présente un exemple d'utilisation 
de la récursivité en FORTH. 

Tout d'abord, il faut créer un mot « MYSELF » 
qui permette à un mot de s'appeler lui-même. 
Ensuite, pour tester le mot « MYSELF », créons 
un mot « FACT ». Celui-ci calcule, en s'appe- 
lant lui-même, la factorielle du nombre « n » 
et dépose cette dernière sur le sommet de la 
pile. 


< MVSELF.- FHC T écran no 4 ... 03 1 1-S4 > 
: MVSELF LHTEST PFH £Ffi , ; IMMEDIATE ! 

< < > autorise la. récursivité en 

per ■fi et tant- ? dans la définition d"un 
i-iot aue ce dernier Puisse s appel 1er 
lui -meme > 


: FHCT -DUP 

IF DUP 1- MVSELF * 
ELSE 1 
T HEM ? 


K < n n! > calcule la factorielle 

n! de n ■' Par récursivité a 1 aide 
du mot MVSELF -' > 


Figure 7 
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Figure 8 


Les écrans n° 67 et 68 (Fig. 8 et 9) vous indi- 
quent comment un ensemble de mots permet 
de « préfabriquer » des bruits de lasers et 
autres explosions, avec votre MZ. 

Ainsi, en « préfabriquant » un certain nombre 
de fonctions souvent utilisées dans les jeux 




< SOUND écran no 68 ... 02 -11- 84 

: SOUND 0 DO 2 DUP MST H MSTH 

- LOOP DROP DROP MSTP •? 


•• < nl.-n2.-n3 > senere 'ni fois un 

son compose deux sons Privai res dont 
les tonalités sont reslees par n2 ' et 
n3 ■ > 

: S0UHD2 O DO 2DUP MSTH MSTH 2 DUP 2 ••' 
MSTH 2 - MSTfi 2DUP MSTH 
MSTH 

LOOP DROP DROP MSTP ; 

: SOUND 3 ü DO 2DUP MSTH MSTH SWHP 2DUP 
2 MSTH 2 x MSTH SUHP 
2DUF MSTH MSTH 
LOOP DROP DROP MSTP ; 

n 1 » n2 no > fonctionnent comme 
SOUND" • 


Figure 9 

vidéo, vous pourrez, par exemple, arriver à réa- 
liser ce type d'application très rapidement. Et, 
n'oubliez pas... UN MOT FORTH, UNE FOIS 
CREE, EST TOUJOURS REUTILISABLE ULTE- 
RIEUREMENT... 

Il serait sans doute souhaitable de décrire le 
fonctionnement de chacun des mots FORTH 
de base utilisés pour créer les mots des 3 
écrans précédents. Alors, si vous désirez, vous 
aussi, devenir FORTH en thème, écrivez-nous 
vite au club, une série d'articles d'initiation au 
langage FORTH sera alors envisagée. 

Un dernier mot pour vous signaler que, dès 
février 85, le Club sera en mesure de diffuser, 
pour votre MZ : 

•EDIFORTH- 1.2 version cassette pour 
MZ700 au prix de 100 F 

• EDIFORTH- 2.2 version cassette pour 
MZ80K au prix de 100F. 

• EDIFORTH- 2.6 version disquette pour 
MZ80K au prix de 150F. 

• EDIFORTH- 3.2 version cassette pour 
MZ80A au prix de 100F. 

Leurs principales caractéristiques sont les 
suivantes : 

• Gestion de la couleur et du 2 e jeu de carac- 
tères (MZ700) 

• Gestion complète de la table traçante 
(MZ700) ou imprimante (80) 

• Editeur plein écran et clavier auto-repeat. 
(Nettement supérieur au FORTH standard) 

• Mots de gestion du son et de l'horloge 
interne. 

• Gestion des poignées de jeux (700). 

• Pratiquement compatible à 100% avec le 
FORTH standard (FIG. FORTH 

• Dictionnaire de 300 mots. 

Dominique BEURRIER 


ALIMENTATION DESAUVEGARDE 


C'est bien connu, la plus grande faiblesse d'un 
ordmateur de table, c'est sa prise de courant. 
Il suffit que ce cher 220 volts nous manque 
pendant une toute petite fraction de seconde 
pour que plusieurs heures de travail soient 
réduites à néant et que notre petit cœur soit 
très ébranlé par l'inévitable crise de nerfs qui 


suit ce que les spécialistes appellent une micro- 
coupure. Heureusement, les Sharpentiers sont 
la, nous vous présentons, en effet, le shéma 
et les explications concernant une alimentation 
de sauvegarde qui prendra automatiquement 
le relai des éventuelles faiblesses de votre 
secteur. 



UTILISATION : 

Brancher, dans l'ordre, l'alimentation au 
reseau, interrupteur ouvert, l'ordinateur et le 
moniteur sur la prise multiple ; ensuite, la fiche 
F sur la prise PS. Mettre votre MZ en marche 
P u| s fermer l'interrupteur de l'alimentation, 
tn fin d utilisation, procéder en sens inverse 
Cette alimentation de secours fonctionne 
depuis 3 mois chez son concepteur MARC 
LUCAS, permet une sauvegarde de 28 minu- 
tes maximum, et vous coûtera environ 300 F. 
Elle est, bien sûr, adaptable sur tout MZ. 
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ORDRE COMPACT 
POUR U K-BASIC V.5.Î. 


Nous allons, cette fois-ci, ajouter au K-Basic 
V.5.2. un instruction du Super-Basic, l'ordre 
COMPACT. Son utilité est la suivante : 
Supposons que nous écrivions un programme 
sous forme structurée avec identation des 
lignes (pour mieux en faire ressortir la struc- 
ture) êt séparation des mots-clés par des espa- 
ces pour le rendre plus lisible. Lorsque le pro- 
gramme est parfaitement au point, il peut être 
devenu trop gourmand en mémoire au point de 
ne plus permettre l'utilisation de nombreuses 
variables ou de grands tableaux. On pourra 
alors utiliser COMPACT pour obtenir une ver- 
sion « utile » du programme, ne comportant 
plus d'espaces entre les mots clés et dans 
laquelle, toutes les indentations ont été sup- 
primées. Cependant, les lignes contenant des 
REM sont conservées, pour que d'éventuels 
commentaires utiles ne soient pas perdus (on 
remarquera que ces commentaires sont com- 
pactés eux aussi (I) à moins qu'on les écrive 
entre ""). 

Pour ajouter cet ordre au K-Basic V.5.2., on le 
chargera et par Shift Break, on retournera au 
moniteur en mémoire morte. Grâce à la com- 
mande M, on placera dans les octets 


n° la valeur 


I0FD 

33 

(Identificateur : "K-Basic ' 

\l. 5.3") 

83F9 

FD 

(6FFD 

est l'adresse de la 

routine) 

83FA 

6F 
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43 
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C 
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4F 

ASCII 

deO 

(COMPACT 
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7F37 

4D 

ASCII 

de M 

code 

FE AD) 

7F38 

50 
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de P 



7F39 

41 
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de A 



7F3A 

43 

ASCII 

deC 



7F3B 

D4 

ASCII 

de T t 

- 80H 


7F3C 

42 
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de B 

(On doit 

décaler 
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4F 
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de 0 
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4F 

ASCII 
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BOOT) 
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D4 

ASCII 

de T 4 
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7F40 

FF 

Fin de 

table des codes FE 



On i 

entre les codes 

suivants à 

partir de 8IFD 

CD 

64 

2C 

2A 

Al 

73 

54 

5D 

D5 

7E 

ED AO 

B6 

ED 

AO 

20 

08 

ED 

53 

A3 

73 

El 

C3 

47 

18 

ED 

AO 

ED 

AO 

7E 

FE 

3A 

28 

04 

FE 

20 

20 

09 

23 

18 

F4 

23 

7E 

FE 

20 

28 

FA 

B7 

28 

2A 

FE 

22 

20 

OC 

ED 

AO 

7E 

B7 

28 

20 

FE 

22 

28 

18 

18 

F4 

FE 

OB 

28 

OE 

FE 

II 
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OA 

FE 

15 

20 

OA 

ED 

AO 

ED 

AO 

ED 

AO 

ED 

AO 

ED 

AO 

ED 

AO 

18 

CE 

ED 
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EB 

DI 

E5 

ED 

52 

ED 
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B7 

20 

OB 

7B 

FE 

05 

20 

06 

El 

ED 

52 

EB 

18 

04 

73 

23 

72 

DI 

69 

60 

19 

8B 










On a donc diminué légèrement la zone FREE2 
qui commence maintenant à 6D41 (On remar- 
quera que 6D41 + 1200 = 7F41). Il reste à 
écrire la routine grâce à M à partir de 
6FFD + 1200=81FD. 


Avant de préenregistrer le Basic par J8670 et 
enfoncement de 'S', on revérifiera soigneuse- 
ment les codes entrés (le dernier doit être entré 
dans l'octet n° 8279). 

KOKANOSKY 


TRAITEMENT 
DE TEXTES 


Ce traitement de textes, écrit 
pour MZ 700 utilisera au mieux 
vos nouveaux caractères accen- 
tués. On peut le modifier assez 
facilement pour le faire tourner 
sur MZ 80K ou A. 

A. MODES ET FONCTIONS 

1. Définition du format d'écriture 

2. Fixation des tabulateurs 

3. Définition de l'autoreverse 

4. Création des mots-type (Fl à Fl 0) 

5. Ecriture et édition à l'écran 

6. Edition et restructuration 

7. Impression du texte 

8. Sauvegarde sur cassette 

9. Lecture d'une cassette 

10. Retour au Basic 

B. UTILISATION 

1. Format 

Entrée du nombre de caractères de l'impri- 
mante, de la marge, du nombre de caractères 
du texte, du nombre de lignes par page, du 
retour automatique à la ligne. 

2. Tabulateurs 

Possibilité de 10 tabulateurs simultanés, à gau- 
che ou à droite. Par défaut la valeur des tabu- 
lateurs est fixée à 0 

3. Autoreverse 

Cette fonction permet de provoquer un retour 
à la ligne dès l'apparition d'un espace ou d'un 
trait d'union dans les 8 derniers caractères pré- 
cédant la fin de la ligne. 

Par défaut R est pris égal à 3. 

4. Mots type 

Il est possible de programmer 10 mots ou 
expressions utilisés fréquemment sur les tou- 
ches de fonction F 1 à F 1 0, ces mots-types ont 
15 caractères maximum. 

5. Ecriture et édition 

Ce mode permet l'écriture du texte à l 'écran, 
il utilise les symboles ci-après : 

£ : retour au menu 

— ►: Tabulateur gauche 



ml 


- — : Tabulateur droite 
i : centrage 

— : Correction (touche sans marquage) 
\ : Répétition 

Ces fonctions permettent une édition avec cor- 
rection simple. 

6. Edition/Restructuration 
Ce mode permet la correction de lignes déjà 
complètes, l'effacement de lignes et leur 
déplacement. 

Une possibilité de coupure automatique des 
lignes est prévue. 


7. Impression 

Assure l'impression de tout ou partie d'une 
page de texte. 

8. Sauvegarde sur cassette 

Permet de conserver une page de texte sur 
cassette. 

9. Lecture cassette 

Permet la lecture d'une cassette contenant une 
page de texte, en vue de sa réutilisation : 
impression, modification etc. 

10. Sortie programme 
Permet le retour au Basic. 

Attention : dans ce cas toutes les informations 
(texte, format, mots-type) sont perdues ! 


C. CONCLUSION 

Ce programme n'a pas la prétention à une qua- 
lité professionnelle, et à un certain nombre 
d'imperfections. 

Il permet néanmoins de rendre de grands ser- 
vices à l'amateur. 

La capacité mémoire permet le stockage de 1 0 
pages (70 lignes, 80 caractères). 

Options par défaut : 

• Imprimante et texte : 40 colonnes 

• Marge gauche : 0 autoreverse : 3 

• Tabulateurs gauche et droite : 0 nombre de 
lignes par page : 70. 

H. Benoit 


u REM*t******traitement de te;-; te#* *** *** 

20 FOR 1-4653 TÜ4676 : F:EH CLAVIER MACHINE A ECRIRE QWERTY 
30 F— PE EK ( I ) : Q-F'EEK ( I +64 > 

40 POLE I , Q : F'OKE I +64 , P 
50 N EX TI 

60 DATA4645. 169,4709,89,4646, 162,4710,90.4686. 185.4750. 168,4711, 173,4712, 174,471 

3, 107,4648, 178,4647, 187,4749, 110,4649, 186,4753, 109,4743, 111.4744. 106,4745, 105 

70 FOR 1-1 TO 17 

80 READ P , W î F'OKE P,W:NEXT I 

85 2 Z —40! IP=40!LR=0: AR-37: Z 8-70 s RL*="n " 

90 PR INT "R" t 

100 DIM B*<70,20> sDIN LI< 10): DIM RE (10) : IF ZS<2: ZS-70: REM DEF. DE BASE 
110 IF ZZ<2! Z Z— 40 
120 IFLRï.O: LR=0 
130 IFAR<2:AR-41 

140 F'RINT”******TRAI TEMENT DE TEXTE MZ--700****** *": PRINT 
150 FRINT" * **.**. «COPYRIGHT BYs RCILF KAPPLER ****** * " 

155 PRINT"*****Publie par HDMECOMPUTER 10/84*****" 

160 PRINT" ««««Traduit et adapte par H. BENO I T* «««*": PRINT 
190 PRINT" De: têts di sponi b 1 es! ” ; SI ZE! PR INT 

200 PF: INT" * **.* * * * «CHC.I I X DU SOUS— PROGRAMME* ** * *■***"! PR I NT 
210 PRINT'” 1 ! FORMAT D : ’ ECRITURE" 

220 PR I NT " 2 ! TABULATEUR " 

230 PR I NT "'3 AUTOREVERSE " 

240 PRINT"-4s MOTS-TYPES" 

250 PR1MT"5! COMPOSITION ET EDITION" 

260 PR I NT " 6 : ED I T I ON /RES TRUCTURAT I ON " 

270 PR IN T " 7: IMPRESSION" 

280 PRINT”8! SAUVEGARDE SUR CASSETTE" 

290 FRINT "9: LECTURE CASSETTE" 

300 .PRINT" 10! SORTIE F'ROSRAMME" ! PRINT . 

310 ON ERROR GOTO 3010 

320 I NPUT " CHO I S I R UN NOMBRE S.V.P. " ! MW 
330 ON ERROR GOTO O 

340 ON MW GDTO350. 440, B40. 2750, 910, 1480, 2590, 2280, 23B0, 271 0 
350 PR T N T "R" : PR I N T " * * * FORMA T D ’ ECR I TURE * * * " ! PR I N T : Z S- 70 

.360 -PR INT "ENTRER LES NOMBRES CORRESPONDANT A VOTRE CHOIX S.V.P. '"SPRINT 

370 ON ERROR GOTO 3010 

37.5 INPUT"CARACTËRES/LIGNE (IMPRIMANTE): M IP 
380 I NPUT "ESPACES POUR LA MARGE GAUCHE: " ; L.R 

390 I NPUT "CARACTERES /LIGNE (HORS MARGE): ";ZZ 

395 IF LF: * Z Z > I F J : PR I NT " MA X I MUM " ; I F' ; " CARACT. PAR L IGNE ! " : G0T0390 
400 . I NPUT "LIGNES PAR PAGE: " ; N: G0SUB3040: ZS-N 
410 ON ERROR GOTO O 

415 INPUT" RETOUR LIGNE AUTOMATIQUE? (o/n) " ! RL* 

430 (3GTQ90 

440 RE (0) -L.R + ZZ : I-l : REM TAB. 

450 F'F? INT "R" : F'R I NT " * * «TABULATEUR* * * " : F'R I NT 

470 IMPOT" GAUCHE ( q ) ou DROIT (d >? "; X* 

480 IF X*="a" GOTO 510 
490 IF X*="d " : GOTO 630 
500 GOTO 90 

510 PRINT: PRINT" 10 POSITIONS DE TABULATEUR POSSIBL.ESfi!" 

515 PR -INT" DONNER 'LEUR' NOMBRE' D’-ESPACES -CROISSANT»" 

520 PR INF" APRES LA DERNIERE ENTREE PRESSER F:*) 7 B!" 

530 PRINT "PROGRAMME QUI T TE AU";L;"EME CARACTERES!" 

540 ONERRORG0TO30 1 0 

550 ■ PRINTI ! "E. POSITION: ANCIENNE VALEUR" ;LI < I > 

560 INPUT LUI) i 

570 ON ERROR GOTO O 

580 I FL I (I > =0: FOR I = ITO 1 0: LI ( I > —Os NEXT-I : B0T090 
590 IFLKIX-LMI - 1 ): PRINT "ENTREE ILLOGIQUE" : G0TO540 
600 IF ZZ<-LI ( I ) : PRINT "ENTREE ILLOGIQUE" : GOTO 540 
610 I-I + l : IF K-10: G0T0540 
620 GOTO 90 -■■ 

630 PRINT: PRINT" 10 POSITIONS DE TABULATEUR POSSIBLESfi!" 

635 PRINT"DÜNNER LE NOMBRE D'ESPACES DECRO I SSANTfiJ" - 
640 PR INT "APRES LA DERNIERE ENTREE PRESSER #0’ fi!" 

650 PRINT "PROGRAMME QUITTE AU"! L; "EME CARACTERES!" 

660 0NERRDRBDT030 1 O 

670 PRINTI; "E. POSITION: ANCIENNE VALEUR" ! LI (I > 

680 INPUT RE ( I ) 

690 ON ERROR GOTO O 

700 I FRE ( I ) =0 : FOR I = I TO 1 0 : RE ( I ) -O : NEX T I : G0T090 
710 IFRE < I ) >=-RE <1 — 1 ) : PRINT "ENTREE ILLOGIQUE" ! G0T0660 
720 IF RE ( I > >-Z Z i PR I NT " ENTREE ILLOGIQUE" ! GOTO 660 
730 I = I + .1 : I F I < = 1 0 : G0T0660 
740 GOTO 90 

750 GOSUB 1290 : REM CENTRAGE 
760 GOSUB 3110 
770 M*-S* ( J . ST > +M* 

780 AM=Z Z /2- (LEN < M* ) --LR) /2 
790 1=0: ' 

800 I F I >=AM: G0T0B30 
810 M*=" "+M* 

820 1 = 1 + 1 : GOTO 800 

830 S* ( J , ST) -M*: L.-LEN (S* < J , ST) ) - 1 : GOTO 1 190 
840 F'R I N F " pï *»*AUTOREVERSE*»*"!PRINT 

850 PR I N T " NOMBRE DE CARACTERES A INTERCALER PAR L ' AUTOREVERSE A PARTIR DE LA MAR 
GE DROITE” 

860 ON ERROR GOTO 3010 
870 INPUT F: 

880 ON ERROR GOTO O 
890 AR-LR+ZZ--R 
900 G0T090 

9.10 PR IMF "fi?" ! REM IJP. 2 
920 ON ERROR GOTO 3010 
930 INPUT "QUELLE PAGE?" ! ST: PRINT"!!" 

940 GOSUB 3070 


950 ON ERROR GOTO O 

960 FOR J-l TO ZS : REM LIGNES 

9 70 R=0 : L 1-0 : RT =0 : PR I NT 

980 IF S* < J, ST )=""! GOTO 1020 
985 GOTOIOOO 

990- IF LEN (S* ( J , ST > > >39 : PR INTS* ( J , ST) » "ISi" : GOTOlOl 0 
1 OOO PR I NT S* ( J , ST ) ; " . Oiï" 

1 0 1. 0 L. -IFN (S* (0 , ST ) > : GOTO 1 030 

1020 GOSUB 1290: PRINTI AB (LR) ; " „HSi" : L-LR 

1 030 I FL.-Z Z +LR-B: MUS I C " F 1 " 

1032 IF L- AP. : MUS IC" Fl": MUS IC" Al ” 

103.3 IF RL*-"n " : GOTO 1040 
1035 IF L-Z Z+LR-2! GOTO 1 230 
1040 GET A* 

1050 IF L • -AR GOTO 1080 
1060 IF A*-" " GOTO 1.230 

10 70 IF- A*=" — " : S* (0 . ST ) —S* (J , ST) +A*: GOTO 1230 

1080 IF A*— IF R-OîGOTO 1040 

1090 IF ASC ( A* >-13: GOTO 1 230 

1100 IF A*-"!?': GOTO 90 

lllü IF A*=" •>" : LT-LT+ 1 : GOTO 2840 

1120 IF A*—" F " : RT-RT + 1 : GOTO 2880 

1130 IF A*=“ + " : GOTO 750 

1140 IF A*-" -1 '" : GOSUB 1320 

1150 IF A*= " \ " : IF R-OîR-ÜGOTO 1170 

1160 IF At- " \ : IF R-ÜR-OîGDTO 1040 

1170 IF R= 1 : A*=R I GHT* (S* ( J , ST > , 1 > 

1180 IF L. <LR+ZZ : IF ASC ( A* ) >30! S* ( J . ST ) =S* < J , ST ) +A* 

1190 IF SI ZE< 100 ! PRINT "ARRET POUR RISQUE DE DEPASSEMENT DE CAPACITE MEMOIRE" : GDT 

0 1260 : 

1200 IF LEN (S* ( J . ST) ) >39: PRINTS* (J . ST > : "ï»j" : GOT0 1.220 
12.10 PRINT -S* (\I., STI! "...JGSi" 

1220 L-L + 1 s GOTO 1 030 

1230 IF J-ZS-5: MUSIC'Al Al" 

1240 IF J-ZS-5: MUSIC'Al"; "Al" 

1250 NE X T J 

1260 PRINT "SS! VOUS DISPOSEZ ENCORE DE" ! SI ZE; " OCTETS" : PRINT" APPUYER SUR 

UNE TOUCHE! " 

1270 GET A*: IF A*-"": GOTO 1270 
1280 GGT090 

1290 S* (J. ST)-"”: 1=0: REM MARGE GAUCHE 
1300 IF I >-LR: RETURN 

1310 S* (J , ST) —S* ( J , ST ) +" " i 1*1 + 1'.! GOTO 1300 
1320 A- 1 ; REM CORRECT ION 
1330 GET: A* 

1340 IF ft*:="S!" : IF RK-O: RK=1 î GOTD 1390 
1350 IF A*="S!"!'IF RK-ÜRK-0 
1360 IF A* = ”G" : C- 1 : IF P>0:A=A+1 
1 370 IF At="E" : C= - l MF A > 1 : A=A- 1 
1380 IF A*= " * 11 : A*= " " : L=L- 1 : RETURN 
1390 IF RK=l: IF P >0 : IF A> 1 : A-A+C 

1 400 F-LEN (S* (J-, ST) ) — A 
1405 IFP/OTHENP-O 

1410 IF ASC (A*) =24: IF P+A<ZZ+LR: 5* (J , ST) -L.EFT* (S* (J , ST) ,P+1 >•+"- " +RIGHT* (S* (J, ST) 
• A- .1. ) : L—L + 1 : GOTO 1 440 

1 420 I F ASC ( A* ) - 1 6 : I F P >0 : S* ( J , ST ) -L.EFT* ( S* ( ,1 . ST ) , P) + R I GHT * < S* < J , ST > , A - 1 > : PR I NT " 

ISi" : L =L.~ 1 : GOTO 1 440 

1430 IF ASC (A* > >30: S* ( J , ST > -LEF T* (S* ( J < ST > , P) +A*+RIGHT* (S* < J , ST ) ,A-1) :A=A-l! IF A 
< 1 : A*- L=L- 1 : RETURN 

•14.40 IF L.EN (S* ( J , ST) ) >39: FRINTS* < J , ST ) ! "lii" : GOTO 1 460 
1450 PRINT S*(J.ST);" BSi" 

1460 IF F';. -38 PRINT TAB (P) ; "ii" ! GOTO 1330 
1470 PR I N T T AB < P- 39 ) ; " GSMS.Si" : GOTO 1 330 

1480 PRINT "H * * *ED I T I UN ECRAN ET RES TRUCTURAT ION** *fi!" 

1490 PRINT " 1-FDIT ION ECRAN ET CORRECT ION" 

1500 F'R INT" 2-COUPURE AUTOMATQUE DES LIGNES" 

1.510 PR INT" 3-EFFACEMEMT DE LIGNES" 

1520 F'R I NT " 4-DECAL. AGE DE LIGNES" 

1530 PR INT" 5-RETOUR AU PROGRAMME PRINCIPAL" 

1540 PRINT "SJ.'HUISISSEZ UN NOMBRE S.V.P." 

1550 ON ERROR GOT03O10 

1560 INPUT MW 

1570 CIN ERROR GOTO 0 

1580 ON MW GOTD 1590,1850.2040,2110,90 
1590 PRINT "H" : REM UP.3.1. 

1600 ON ERROR GOTO 301.0 

1610 INPUT "QUELLE PAGE?" î ST: GOSUB 3070 
1620 INPUT" DEPUIS LIGNE: "; N: GOSUB 3040 
1630 ON ERROR GOTO O 
.1640 E-ZS : S- l 
1650 FOR J -N TO E STEP S 
1660 PRINT"BFAGE ";ST:" LIGNE "5 J 
1670 PRINTS* (J. ST) 

1 680 FOR 1=1 TO 5Û 
'-1690- GET A* 

1700 IF ASC ( A* ) — 1 3 : GOTO 1 7 40 
1710 IF A*="£"!GaT014S0 
1720 NEX T I, J 
1730 GOTO 1600 

1740 GET A*: IF A*- GOTO 1740 

1750 IF S I ZE< 100s PRINT "ARRET PDUR RISQUE DE DEPASSEMENT DE CAPACITE MEMOIRE" î GOT 

0 1260 

1760 IF 1 ! L.EN<5* (J, ST) ) : GOSUB 1290 
1770 IF A*-"' 1 '" : GOSUB 1320! GOTO 1740 

1 780 I F A*= " £ " : GOT 0 1 480 

1790 IF ASC (A*) =18! S— 1 : E- 1 : N=J : GOTO 1650 

1800 IF ASC (A*> <30: S-l : E-ZB: N— J : GOTO 1650 

1810 IF LEN (S* (J , ST) ) <=LR+ZZ ! S* < J « ST) -S* (J , ST ) +A* 

1820 IF L.EN (S* (J . ST) > >39: PRINTS* (J . BT > ! "»#i" ! GOTO 1840 
1830 PRINT S* (J. ST);" GSi" 



1840 GOTO 1740 

1850 PR INT "g": REM UP. 3.2. 

1860 ON ERROR GOTO 3010 

1870 INPLIT "COMBIEN DE LIGNES FAR PAGE? " i Ni GDSUB304O 

1880 ON ERROR GOTO O 

1890 FRI NT " ATTENDE 2 B.V.P." 

1900 ST=lsFOR J-l. TO ZS : ST ( J , 0) - " " : NEXTJ 

1910 LX=ZS:LZ«ZS:GOSUB 1 970: IF ST< 19: 5T-ST+1 : GOTO 1810 

■1.920 ST -O ■■■■■■■■■■■■■■ . . ■ 

1930 LX-ZS:LZ-ZS: GOSUB 1970: IF ST< 19: ST-ST + 1 : GOTO 1930 

1940 FOR J-l TO ZS:ST(J,ST+1)-ST(J,ST) :ST(J.ST)= NEXTJ 

1 950 I F ST >0 : ST-ST - 1 : GOTO 1 940 
1960 GOTO 1480 

1970 IF S$(LZ,ST)="":IF LZ >0: LZ-LZ -1 : G0T01970 
1980 IF ST (LX.ST+l)-"": IF L.X >0: LX-LX- 1 : G0T01 980 
1 990 V Z =N--LZ : I F VZ =0 : RETURN 
2000 IF L Z >L X : V Z=l_ X : I F r VZ<=0: RETURN 
2010 FUR J-l TO VZ: S* (LZ+J, BT) -B» ( J, ST+1 ) : NEXT J 
2020 FOR J-VZ+1 TO ZS: ST < J-VZ . ST+ 1 ) -ST < J, ST+1 ) : NEXTJ 

2030 FOR J-ZS--VZ TD ZB: B* ( J. ST+1 ) NEXTJ: RETURN 

2040 PR INT" g" : REM UF .3.3. 

2050 ON ERROR GOTO 3010 

2060 I NPIJT "SUR QUELLE PAGE VOULEZ VOUS EFFACER?" : ST : GDSUB 3070:SA-ST 
2070 INPUT "FREMI ERE LIGNE A EFFACER? ”;N:GOSUB 3040: ZA-N 
2080 INPUT "DERNIERE LIGNE A EFFACER? "5N:G0SIJB 3040 
2090 ON ERROR GOTO O 

2 1 00 Z E=N : SB=0 : Z B= 1 : N— ZE- Z A : G0T02230 

2110 PR IN T "RLE DECALAGE DOIT S'EFFECTUER: " : REM UP.3.4. 

2120 ON ERROR GOTO 3010 

2130 INPUT"DE LA PAGE ST: GOSUB 3070:SA=ST 
2140 INPUT "DE LIGNE N: GDSUB 3040: Z A=N 
2150 INPUT "A LIGNE "s N: GOSUB 3040: ZE-N 
2160 INPUT "A LA PAGE ST: GOSUB 3070:SB=ST 
2170 INPUT "DE LIGNE "; N: GOSUB 3040: ZB=N 
2180 ON ERROR GOTO 0 
2190 N-ZE-ZA 
2200 FOR J —Z S— N TO ZS 

2210 IF ST ( J « SB ) < > ” " : PR I NT " NOMBRE MAXIMUM DE LIGNES PAGE SBî "DEPASSE !": G0T0212 
2220 NEXT J 

2230 FOR J -Z S -N TD ZB+1 B TEP- 1 : S* < J+N. SB) =S* ( J-l . SB> : NEXT J 
2240 FOR J-ZA TO ZE: S* < ZB, SB) «ST ( J , SA) : ZB-ZB+1 : NEXT J 
2250 FOR J-ZE + 1 TO ZS : ST ( J-M-- 1 , SA) -ST ( J , SA) : NEXT J 

2260 FOR J=ZS--N TO ZS:ST(J,SA>= NEXT J 

2270 GOTO 1480 

2280 F’ R I N T " g * * *SAIJVEGARDE SUR CASSE T TE#.* * B!" 

2290 ON ERROR GOTO 3010 

2300 INPUT "QUELLE PAGE? " : ST: GOSUB 3070 

2310 ON ERROR GOTO 0 

2320 PRIMT"S!+ RECORD /PLAY" 

2330 WOF'EN " PAGE ” 

2340 PRINT/T ST, ZS 

2350 PR I NT "PAGE " I S T J " DE":ZS:" LIGNES EN COURS D'ECRITURE" 

2360 FOR J-l TO ZS: ST ( J , ST) =" * "+ST ( J . ST > : PRINT/T ST (J, ST) : GOSUB 2550: NEXT J 
2370 CLDSE : GOTO 90 

2380 FR INT "g ***L£CTURE CASSETTE***fi!" 

2390 INPUT "CASSETTE DE TEXTE PRETE? (OUI=o) ";XT 
2400 IF XT< ï "o" : GOTO 90 
2410 PRINT"! PLAY" 

2420 ROPEN"PAGE" 

2430 INPUT /T ST. Z S 

2440 rR INT" TROUVE: PAGE" :ST;" DE'MZS;" LIGNES" 

2450 INFUT " DOI T ELLE E I RE LUE? <ÜUI=o) " S XT 

2460 IF X * < > " d " : CLOSE : GUI 0 90 

2470 FOR J-l T O ZS 

2480 IF SIZEC300: CLOSE: GOTO 2520 

2490 INPUT /T ST (J, ST) 

2500 IF L.EFTT (ST ( J. ST) , 1 > < >"# " : ST < J--1 , ST) -ST (J-l , ST) + ", "+ST ( J . ST) : J-J-l 
2510 NEXT .J 

2520 FOR J-l TO ZS: GDSUB 2550 
2530 NEXT J 


2540 CLOSE: GOTO 90 
2550 K-LEN < 3* < J , S T ) ) 

2560 IF (•:' >- 1 : K -K - ■ 1 """■"■■' 

2570 ST(J,ST)=RIGHTT(ST(J.ST),K) 

2580 RETURN 

2590 PR I NT " g * * # I MF'RESB ION*#* B!" 

2600 ON ERROR GOTO 3010 
2610 INPUT "QUELLE PAGE? " ; ST 
2620 GOSUB 3070 

2630 INPUT "COMBIEN DE LIGNES A IMPRIMER? ";N 

2640 GOSUB 3040 

2650 ON ERROR GOTO 0 

2670 FOR J-l TO N 

2680 FRI NT /P S* (J. ST) 

2690 NEXT J 
2700 GOTO 90 

2710 FOR 1-4653 T04676 : P-PEEK ( I ) : Q-PEEK ( 1+64 ) : PDKEI , Q: PDKE ( 1+64! .PsNEXTI 

2 720 DATA4645, 89, 4709, 189,4646, 90,4710, 162.4686,94,4750, 148,4753, 255, 4712. 190. 47 

13. 12B. 4648,91, 4649, 93, 4647. 64. 4711, 147,4749, 192,4743,35,4744,36,4745,3 7 

2730 FOR 1 = 1 TO 17: READ P,W:F'OKE F',W:NEXT I 

2740 END 

2/50 PR INI "lï; ***M0TS-TYPES***fi!" 

2760 F'RINT "LONGUEUR DES MOTS: MAX. 15 CARACTERESfi!" 

2770 ON ERROR GOTO 3010 

2780 INPUT "TOUCHE A DEFINIR? < 1-10, ©«RETOUR) : "S MW: IF MW>C: IF MW = 10: GOTD7BOO 
2790 ON ERROR GOTO 0:G0T090 
2800 ON ERROR GOTO 0 

2810 INPUT "fi!MOT-TYPE? ";XT 

2820 DEF KEY (MW!=XT 
2830 GOTO 2750 

2840 IF LT >10 GOTO 1040: REM LINKSTAB 

2850 IF LEN (ST (J, ST) ) >=L.I (LT) : LT-LT+ 1 : GOT02840 

2860 FOR 1 = 1 TO LI (LT) -LEN (ST (J , ST) ) : S* ( ,J, BT) «S* ( J, ST) + " " : L-L+ 1 : NEXT I 
2870 GOTO 1040 

2880 IF RT . 10 GOTO 1040 : REM T AB. DROIT 
2890 IF FÏE (RT ) ;■ LF: + Z Z - L : R T— RT + 1 : GOTO 2S80 
2900 IF RE (RT) -O: GDTD1040 
2910 HT-ST(J.ST) 

2920 GOSUB3HO 
2930 MT— ST (J , ST) +MT 

2940 MT-RIGHTT (MT. (L.EN (MT) -LEN (HT) ) > 

2950 AB=LR + Z Z -LEN ( H* ) -LEN < M« ) -RE < RT ) : REM DISTANCE 

2960 IF AB< 1 : R T—RT + 1 : GDTD1040 

2970 FOR I-I TO AB:HT-HT+" " : NEXT I 

2980 ST(J,ST)=HT<-MT 

2990 L-LEN ( S* < J , ST ) ) - 1 

3000 GOTO 1200 

3010 FRI NV "ERREUR D'ENTREE FORMELLE" 

3020 F'F: INT" RECOMMENCER L'ENTREE!" 

3030 RESUME 

3040 IF N >=1 : IF M<=ZB: RETURN 
3045 I FN-0THEN90 

3050 PR INT "70 LIGNES MAXIMUM! NOMBRE RETENU: "SZB 

3060 I NPUT " REPETER L'ENTREE ":N:G0T03040 
3070 IF ST>=1 : IF ST<=20: RETURN 
3075 I F ST «0THEN90 

3080 PR INT "LA MEMOIRE NE CONTIENT QUE LES FAGES 1-20" 

3090 INPUT "PAGE ? " ; ST 
3100 GOTO 3070 

3 1 1 0 MT- PR I NT " «HIS" : REM LIP . ENTREE 

3.120 GE T AT: IF A*-"": GOTO 3120 

3130 IF S I Z E< 1 DO : PR I NT " ARRET FOUR RISQUE DE DEPASSEMENT DE CAPACI TE MEMOIRE" : GOT 
0 1260 

3140 IF ASC (AT) -13: RETURN 
3 1 50 I F LEN ( MT+ST (J, ST) ) 7-ZZ+L R: RETURN 
3 1 60 IP AT- " * " : ST ( J , BT ) -ST ( J , ST ) +MT : MT- " " : GOSUB 1 320 
3170 IF ASC (AT) >30:MT=MT+AT 

3180 IF LEN (ST (J , ST) +MT ) >39: F’RINT ST ( J , ST > +MT ! "lii'U: GOTO 3120 
3 1 90 PR INT ST ( J , ST ) +MT î " »GSi" : GOT03 1 20 


L'ACCES AUX ACCENTS 


La programmation, en ROM, des caractères 
accentués sur vos différents MZ et impriman- 
tes (bulletin n° 8) vous a semble-t-il posé beau- 
coup de problèmes ; essentiellement pour 2 
raisons : 

1. Les programmateurs d'EPROMS ne sont pas 
aussi répandus que les moulins à café et vous 
avez baucoup de mal à vous en faire prêter un. 

2. Les bons programmateurs d'EPROMS sont 
encore plus rares, et si, miraculeusement, votre 
concierge a consenti (juste avant les étren- 
nes...) à vous prêter le sien, les résultats obte- 
nus n'ont pas tout à fait comblé vos 
espérances. 

La solution ? Programmer ces mémoires rébar- 
batives au club. Alors, nous avons investi et 
nous pouvons maintenant vous proposer ce 
nouveau service. 


D'abord quelques explications : Cette mémoire 
se présente, sur le circuit imprimé de votre MZ, 
sous la forme d'un circuit intégré muni de 14 
pattes et surmonté d'une fenêtre transparente 
généralement obturée par un adhésif argenté. 
Cette mémoire conserve tous les caractères 
affichables à l'écran, d'où son nom : généra- 
teur de caractères. Au pied (aux pattes, si vous 
préférez) de ce boitier, sur le circuit imprimé, 
doit être inscrit « CG » : « Caractère genera- 
tor » en anglais. Si toutes ces conditons sont 
réunies, bravo ! vous avez découvert ce que 
vous allez devoir changer. 

Ensuite, pour obtenir, enfin, un véritable alpha- 
bet français sur votre MZ, il vous suffit de sui- 
vre la procédure suivante : 

1- Procurez-vous, chez un marchand de com- 
posants, une EPROM 2716 monotention. Si 


vous nous envoyez une EPROM de récupéra- 
tion, assurez-vous qu'elle soit vierge, nous ne 
pourrions, autrement, vous la programmer. 
Enrobez-la de papier d'aluminium et envoyez 
l'ensemble au club, accompagné d'un chèque 
de 50 F. 

2- Dès le retour de votre puce, démontez déli- 
catement l'actuel générateur de caractères en 
repérant préalablement son sens (encoche), 
montez votre nouveau circuit à la place, tout 
aussi délicatement et DANS LE MEME SENS, 
refermez le tout et branchez. 

3- Si vous obtenez un écran tout blanc, c'est 
qu'il y a un défaut. Sinon, appelez tous vos 
caractères graphiques et vous verrez enfin 
apparaître les é, è, ç, à, ê, ù, tant attendus. Il 
vous suffira, ensuite de taper le caractère gra- 
phique correspondant pour obtenir la lettre 
accentuée de votre choix. 


Générateurs actuellement disponibles : 

MZ 80K, IMPRIMANTE P3, MZ 80B, MZ 700 

Nous recherchons avidement les générateurs 
suivants : 

MZ 80A, IMPRIMANTE MZ80 P5/A, P5/B 

S.B. 




LMSURMZ 


Pour poursuivre plus avant cette 
série d'articles avec un maxi- 
mum de chances du succès nous 
allons devoir passer par une 
phase quelque peu rébaifaative 
mais ABSOLUMENT INDISPEN- 
SABLE pour la compréhension de 
nos futurs articles. Il sérail, en 
effet, illusoire de vouloir pro- 
grammer en L.M. sans avoir 
comment fonctionne un micro- 
processeur et comment il inter- 
prète et manipule les informa- 
tions qu'il est amené à gérer. 
C'est ce que nous allons tenter 
d'élucider. 


L'INFORMATION 

Toutes les tâches d'un microprocesseur se 
résument en 2 fonctions primaires : Recevoir 
et émettre des informations. D'autre part, nous 
avons vu que notre microprocesseur était relié 
au monde extérieur par une série de fils ; nos 
informations vont donc voyager sur les fils 
selon un codage particulier reconnaissable par 
notre microprocesseur et les autres- 
composants qui composent notre MZ. 

Quel est le codage ? Sur nos fils, ne circulent 
que 2 tentions électriques différentes : 0 volts 
et 5 volts qui correspondent à 2 signaux diffé- 
rents que le microprocesseur va traduire, dans 
sa logique par 0 (0 volt) et 1 (5 volts). Pour- 
quoi cette logique si simple ? Parce que le Z80, 
comme tous les microprocesseurs, travaille en 
BINAIRE ou BASE 2 et qu'il ne sait lire ou écrire 
que des 0 ou des 1 . L'unité de base d'informa- 
tion de notre système ne peut donc avoir que 
2 valeurs, elle s'appelle BIT (de Blnary digiT) ; 
et c'est la succession de ces bits qui formera 
des « mots » transmis à l'écran, à la cassette, 
à l'imprimante. 
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■ Représentation électrique d'un mot de 8 bits 
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L'OCTET 


Comme vous le savez déjà, le Z80 est un micro- 
processeur 8 BITS, c'est-à-dire qu'il ne peut 
recevoir ou émettre qu'un « mot » ou « nom- 
bre » composé d'une succession de 8 BITS ; 
c'est ce nombre, appelé OCTET que nous allons 
étudier. 


Un octet 


m 

m 

m 

□ 

H 

E 

m 

Fl 

(128) (64) 

(32) 

(16) 

(8) 

(4) 

(2) 

(1) 


UN PEU D'ALGEBRE DE BOOLE 

Dans 1 BIT, comme nous l'avons vu, nous ne 
pouvons loger que 2 valeurs : 0 ou 1 ; dans 2 
bits successifs, nous pouvons donc loger 4 
valeurs différentes (2 valeurs du 1 0 bit) * (2 
valeurs du 2 e bit), dans 3 bits : 8 valeurs 

(2*2*2) dans 8 bits : 256 valeurs. Nous 

voyons donc qu'il existe 256 possibilités dif- 
férentes de combiner les 0 et les 1 des 8 bits 
qui composent notre octet. 


Dans un octet, le bit de droite prend la valeur 
0 ou 1, son voisin de gauche, la valeur 2 ou 
0 ; le suivant 4 ou 0, etc, jusqu'au bit de gau- 
che qui prend la valeur 1 28 ou 0. Ainsi, si l'on 
veut écrire un nombre quelconque, compris 
entre 0 et 255, en binaire, il suffit de raison- 
ner ainsi : 


Par exemple, le nombre 174. 


1 74 plus grand que 

128 donc : 

bit 8 à 1 . 

174 - 

128 = 

46 

46 plus petit que 

64 donc : 

bit 7 à 0. 




46 plus grand que 

32 donc : 

bit 6 à 1. 

46 - 

32 = 

14 

14 plus petit que 

16 donc : 

bit 5 à 0. 




14 plus grand que 

8 donc : 

bit 4 à 1. 

14 - 

8 = 

6 

6 plus grand que 

4 donc : 

bit 3 à 1 . 

6 - 

4 = 

2 

2 égale 

2 donc : 

bit 2 à 1: 

2 - 

2 = 

0 

Résultat nul 

donc : 

Tous les bits (éventuels) suivants à 0. 


Voilà, le résultat est donc : 


m 

0 

m 

E 

m 

m 

m 

B 


Pour effectuer le calcul inverse, il suffit d'ad- 
ditionner les valeurs relatives de chaque bit 
positionné à 1 . 

Exemple : 


□ 

B 

E 

□ 

E 

m 

□ 

E 


donnera il 28 +16 + 4 + 2 + 1 = 151 

Pour terminer ce chapitre consacré au binaire, 
nous vous soumettons quelques valeurs binai- 


res et décimales à convertir. Les solutions... 
dans le programme joint. 


0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

1 

1 

1 

1 

1 

0 

1 

0 

0 

1 

1 

0 

1 

0 

0 

0 

1 

0 

0 

1 

0 

1 

1 

1 

1 

1 

0 

1 

1 

1 


128, 255, 200, 74, 154 


N'hésitez pas à faire, vous même, de nombreu- 
ses conversions de ce genre, vous maîtriserez 
ainsi mieux le calcul binaire et assimilerez plus 
rapidement certaines commandes du langage 
machine. 


\43f 



(.'HEXADECIMAL 

Bien que cela soit tout à fait possible, il n'existe 
plus un seul programmeur assez fou pour pro- 
grammer sa machine en binaire ; c'est très 
long, fastidieux, et source de nombreuses 
erreurs. Il a donc fallu inventer un langage inter- 
médiaire, adapté au codage binaire et beaucoup 
moins rébarbatif pour l'homme ; ainsi est née 
la notation HEXADECIMALE. 

Le but de cette notation est de pouvoir coder, 
avec 2 caractères les 256 valeurs possibles que 
peut contenir notre octet. Malheureusement, 
notre bonne vieille BASE 1 0 que nous utilisons 
depuis que nous avons 10 doigts est insuffi- 
sante pour coder ces valeurs puisque la valeur 
maximum obtenue avec 2 caractères est 99. 
Un rapide calcul nous conduit à la base 1 6, pre- 


mière capable de coder 256 valeurs avec 2 
caractères. 

Comment compte-t-on en BASE 1 6 ? eh bien, 
c'est très simple. Il suffit de considérer que 
nous avons 16 unités au lieu de 10 en BASE 
10. Le codage de ces unités se fait de la 
manière suivante : 

BASE 10: 0 1 2 3 4 5 6 7 8 9 
10 11 12 13 14 15 

BASE 16: 0 1 2 3 4 5 6 7 8 9 
A B C D E F 

ainsi : 

12 en base 10 devient OC en BASE 16 
16 (( 1*10) + 6) devient 10(11*16) + 0) 
24 (( 2*10) + 4) devient 18 ((1*16) + 8) 
45 (( 4*10) + 5) devient 2D ((2*16) + D) 
161 ((16*10) + 1) devient Al ((A*16) + 1) 
etc. 


UN PEU DE "HARD" 



BUS BUS BUS 

DONNEES ADRESSES CONTROLES 


Le schéma ci-dessus vous représente une con- 
figuration informatique de base ; c'est-à-dire 
que tout système à microprocesseur est doté, 
au minimum, des éléments de ce schéma. 
Examinons-les, de gauche à droite : 

•LE QUARTZ: C'est l'horloge du système qui 
émet très régulièrement 1 à 4 millions de bat- 
tements par seconde et règle ainsi la vitesse 
de fonctionnement du microprocesseur et de 
certains autres composants périphériques. 

• LE MICROPROCESSEUR : C'est le cœur du 
système ; il reçoit, calcule et émet des infor- 
mations sur 8 bits ; nous l'avons déjà abordé 
dans notre précédent article, nous y revien- 
dront longuement à l'avenir. 


• LA MEMOIRE MORTE (MEM) : C'est un type 
de mémoire dans laquelle le microprocesseur 
peut lire des informations mais où il ne peut en 
écrire. En général, cette mémoire est program- 
mée une fois pour toutes lors de la fabrication 
du micro-ordinateur, elle est inaltérable, inef- 
façable par l'utilisateur et peut conserver son 
programme plusieurs siècles... Il est toutefois 
possible de l'effacer et de la réenregistrer avec 
un effaceur à ultra-violets et un programma- 
teur d'EPROM. Cette mémoire peut également 
s'appeler ROM (de l'Anglais Read Only 
Memory), PROM ou EPROM. 

Dans tous les MZ, la mémoire morte se trouve 
entre 0000 et 1000 H soit 4096D ; c'est le 
programme moniteur qui permet d'initialiser la 


% 


Il est très important de bien assimiler cette 
notation car tous les codes L.M. entrés ou lus 
sur la mémoire le sont en HEXA (diminutif de 
HEXADECIMAL). Vous pouvez voir une multi- 
tude de ces codes grâce à la commande « D » 
du moniteur ; ils correspondent au contenu des 
mémoires lues. 

En guise d'exercice, établissez votre propre 
table de conversion DECIMALE / HEXADECI- 
MALE / BINAIRE. Ce document vous sera très 
utile pour vos futurs programmes L.M. 


machine à allumage et attend ensuite vos 
instructions. 

• LA MEMOIRE VIVE (MEV) : Cette mémoire 
est totalement disponible au microprocesseur, 
il peut y lire et écrire des informations, les modi- 
fier, les effacer. C'est la mémoire sur laquelle 
vous chargez le BASIC ou autre langage, c'est 
elle, également qui supporte vos propres pro- 
grammes et mémorise les caractères affichés 
sur votre écran. 

• LES ENTREES-SORTIES (E/S) : Non, ne cher- 
chez pas de sortie de secours pour octets en 
détresse sur votre MZ, il n'y en a pas. Les 
entrées-sorties servent simplement à gérer les 
différents accessoires périphériques au micro- 
processeur : Clavier, écran, cassette, impri- 
mante, disquettes, poignées de jeux, etc., et 
à permettre une bonne entente au niveau des 
signaux transmis entre ces derniers et le micro- 
processeur qui les commande. 

• LES BUS : (en Anglais : Reliable Automatic 
Transfer Pack). Les bus, ce sont les groupes 
de fils qui relient, entre eux les différents com- 
posants de la configuration. 

3 BUS sont nécessaires à la configuration de 
base : 

• LE BUS DE DONNES : Il est composé de 8 fils 
parallèles ; sur ces 8 fils, le microprocesseur 
peut recevoir ou émettre simultanément 8 ten- 
sions de 0 ou 5 volts, donc 8 bits. Comme le 
contenu de chacune des mémoires est codé sur 






8 bits, le microprocesseur peut donc lire, ou 
écrire, en une seule opération (1 cycle), un mot 
de 8 bits en mémoire. 

• LE BUS D'ADRESSES : Il est composé de 1 6 
fils parallèles. Selon le même principe que le 
bus de données il supporte des mots de 1 6 bits. 

Un rapide calcul nous apprend que sur 1 6 bits, 
nous pouvons coder 65 536 valeurs différen- 
tes. Les informations, sur ce bus, ne voyagent 
que dans un sens : émission du microproces- 
seur vers la mémoire. Le nombre envoyé sur 
ce bus (de 0 à 65 535) va servir à sélection- 
ner une case mémoire (ou adresse mémoire) 
dans laquelle le microprocesseur désire lire ou 
écrire une information. 

• LE BUS DE CONTROLE : Pour que le trans- 
fert de toutes ces informations sur les 24 fils 
que nous venons d'étudier se passe bien, il 
faut, quand même, un minimum de discipline ! 
C'est le rôle du bus de contrôle ; il gère et 
synchronise les transferts sur les bus de don- 
nées et d'adresses. 

Un bon exemple valant mieux que de longues 
explications, nous allons étudier une phase de 
lecture mémoire. Dans cet exemple, le micro- 
processeur va lire le contenu de l'adresse 
1200H. 

- 1 er temps : Le microprocesseur envoie sur les 
16 fils de son bus d'adresses (appelés AO à 
A 15) le nombre binaire 1200H soit 
0001 001000000000. Les 0 correspondant à 
0 volt et les 1, à 5 volts (fig. 2). 




— — 

MEMOIRE. 




OOOOH 




1200H 


PP 







xxxxH 


1200H f 

2 . 





MEMOIRE 


-2 e temps: L'adresse numéro 1200H se 
reconnaît et envoie sur un fil du bus de con- 
trôle un signal (5 V.) indiquant qu'elle est prête 
à dialoguer avec le microprocesseur (fig. 3). 

- 3 e temps : Le microprocesseur envoie, sur un 
autre fil du bus de contrôle un signal indiquant 
qu'il veut lire le contenu de cette adresse. 



3 . 


- 4 e temps : Le contenu binaire de l'adresse 
1200H se place sur les 8 fils du bus de don- 
nées et va se transporter jusqu'au micropro- 
cesseur qui va le ranger dans un de ses regis- 
tres internes (fig. 4). 



1200H 


MEMOIRE 




Et voilà... E.L.E.M.E.N.T.A.I.R.E., mon cher 
Zilog. En fait, c'est un tout petit peu plus com- 
pliqué, mais le principe est le même. 

Etudiez bien cet article et ses illustrations car 
(désolé, je me répète) il est indispensable pour 
la bonne compréhension de nos futurs articles. 

En prime un petit programme de conversion 
adaptable sur tous MZ. 


S. BIZOIRRE 


P.S. : Peut-être avez-vous remarqué que : 

R eliable 
A utomatic 
T ransfer 
P ack 

n'était pas une traduction tout à fait littérale 
du mot BUS... promis, nous ne recommence- 
rons plus ! 


3 REM 

4 REM COMUERTIONS 
10 L*=" 


3IN.DEC.HEXA. 


Ce programme conue rt I t en D 
HEXADECIMAL, et BINAIRE une u 
entr-ee sous l'une de ces 3 fo 
Précisez ' D ' , 'H', ou ' R ' no 


ecimal, " 

30 PRINT" 
a I e ur " 

40 PRINT" 
rmes . " 

50 PRINT" 

; : '■ : : ■: 

?0 PRINT"EDTAPE2 UN TOUCHE." 

80 GETRE$ : IFRE$=" "THEN80 

n:: TDD SIÉ’Tft! !(: vti ïÎk- 

® ur demandes : ' 

110 C$=RIGHT$CA$, 1 I :l=LENCA$3 
1 20 IFCCC$="D"IXCL>8II + CCC$="H"D*CL>7.')3 + 

C CC$="B" 3*CL> 1 9} ITHEN490 

130 IF C$="D" THEN D$="9" :GOSUB220 :D=UAL 

CLEFT$CA$ ? .LENCA$3-1 DO :GOTO160 

1 40 IFC$="B"THEND$=" 1 " :GOSUB220 :E=2 .'GOSU 

B280: GOT0 160 

150 IFC$="H"THEND$="F" :GOSUB220 :E=1 6 :GOS 
UB280: GOT0 160 ' 

1 60 E=2 : GOSUB350 :B$=E$ :E=8 .'GOSUB350 
170 T$=E$ :E=16 :GOSUB350:H$=E$ 

180 PRINT"ffl BINAIRE : " ; B $ 

130 PRINT"ffl DECIMAL 

200 PRINT"ffl HEXADECIMAL : "JH$J"E" 

210 GOTO 70 

220 F=0:FOR 1=1 TO LENCA$3~1 
230 B$=M I D$ C A$ , 1 , 1 0 : 1 F B$ < "0 " THEN F=I 
240 IF B$>D$ THEN F=I 
250 NEXT I 

260 IF F <> 0 THEN 430 
270 RETURN 

280 D=0:FOR 1=1 TO LENCA4Ü-1 
290 B$=MID$CA$, 1,1 

300 IF B$>"9" THEN B=ASCCB$3-55 .'GOTO320 

310 B=UALCB$ J 

320 D=D*E+B 

330 NEXTI 

340 RETURN 

350 G=D :E$=" " 

360 H=INTCG/ED 
370 K=G-E£H 

380 IFK>9 THEN K=K+55 :F$=CHR$CK3 =GOTO400 
390 F$=STR$CfO 
400 E$=F$+E$ 

410 IFH<=0 THEN RETURN 
420 G=H: GOTO 360 

430 PRINT"ffiErreur de frappe sur !e",’F; 

^40 IF F=1 THEN PRINT" er. 

450 IF F> 1 THEN PRINT" eme. " ; 

460 PRINT" ch i ffre.ffl" 

470 FOR I - 1 TO2500 :NEXT 
480 GOTO90 

490 PRINT"ffl Trop long.., 

' ' ■ -- : ffl" L- 

500 GOTO470 




PROGRAMMATION STRUCTUREE 



Toujours dans la même optique que précédemment, nous allons voir 
un tri alphabétique programmé de deux façons différentes. 


ALGORITHME (commun aux deux méthodes) 

Demander un nombre de mots. Générer X mots 
composés de 4 lettres tirées aléatoirement. 

Afficher ces Xmots. Les classer par ordre 
alphabétique. Afficher de nouveau ces X mots 
classés. Afficher le temps mis pour ce classe- 
ment. Afficher le nombre de tests, de permu- 
tations. Demander si on recommence. 



10 CLR:PRINT"E" 

20 INPUT" COMBIEN DE MOTS ? ” * H 
30 DIM A$ < 4 > : D I M B$<N> 

40 FOR 0=1 TO H 
5ü FOR K=1 TO 4 
60 X=INT<RNDd>*91> 

70 IF X< 65 THEN60 
30 A*<K>=CHR*00 
90 NENT K 

1 00 BT 0 =A$ 1 > +AT C 2 > + A T- < 3 + A* <: 4 > 

110 PR I NTBT ( 11 1 : ” " ; 

120 NENT 0 

1 30 PR I NT : PR I NT " POT I ENCE TE TRIE " 

î 40 T I T= " Fi 00 Fi 00 " 

150 p=0: j=@ 

160 FOR B= 1 TO N-l 
170 FOR A=B+1 TO N 
ISO T=T+ 1 

190 IF B$<A> < BT- (B :- THEN XT=BT ■ H > : BT C 0 >=BT ( B > : BT •: B :>=;<$ : P=P+ 1 
200 NENT Ri B 
210 FOR 1=1 TO H 
220 PR I NT BT < I > ' " 

230 NEXT I 
240 PR INT 

250 PR I NT " CLASSES EN " ; M I DT < T I T - 3 , 2 > ? " M I N " ? 

260 PR I'NTR I GHTT < T I T ? 2 > ? " SEC. " 

27Ü PR INT" IL V fl. EU ";T;" TESTS" 

230 PR INT "IL V fl EU ";P: " PERMUTATIONS" 

290 INPUT "ENCORE ?";PT 
300 IF RT="0" THEN 10 
310 END 


COMBIEN DE MOTS; 748 

LD XX KIJKQ AUAL UEVR QRFR EGTM VZTV BWHZ 

LUI DE T2ÜL UDUP XXEUI RKNV B BEP BTVU OURM 

LIGE BNMS KUIFUI UflZJ RTHE TXUP ZJVU TUNS 

SOI P DPQZ AEXD FGLV NTFL CKF'fi WRJV RDFD 

HQXV MX HP SHXZ PUUF DWVM AMKM QUUZ flRZQ 

RW IV XMEX T VH fl PQXH KUQX UKXW LU LF RWOM 

PATIENCE JE TRIE 


CLR: PRINT"E" 

INPIJT "COMBIEN DE MOTS ; H 
DIM flT<4>,BTCN> 

K=0 : 0=0 
REF’EflT 

REPEflT 

' X=INT<RNDa :-+91 > 

f WH ILE X< 65 DO 
1 X= I NT ( R ND < 1 : + : 9 1 ) 

**UEND 

. HT':.K>=CHRT(X> 

K=K+ 1 
IJNTIL K =5 

BT ( 0 >=AT < 1 :• + AT < 2 > +AT ( 3 > +HT 4 > ' 

PRINTBT'U, 1 ) ; " 

K=0: U=l..l-|- 1 

IJNTIL 0=H 

PR INT: PR INT" PATIENCE. . 

PP INT "..JE TRIE " 

T IT=" 000000" 

A=1:B=0:T=0:P=0 
REPEflT 
, REF’EAT 
T=T+1 

WH ILE BT (A) < BT '.B:' Di' 
P=P+1 
XT=BT(A> 
BT'::A>=BT(B > 
î BTCB>=XT 
WEND 
A=A+ 1 
UNTIL A=N 
B=B+ 1 : A=B+ 1 
UNTIL B=N- 1 


PR INT 
PR INT 
PR INT "IL 
PR I NT "IL 
INPUT "ENCORE 
'UNTIL RT< >"0" 

END 


REPEAT 

I PRINTBT( I > 
f 1=1+1 
UNTIL I =N 

PR INT 

PR INT "CLASSES EN " ; 

PR INT MIDT': TIT,7,2.' 
PR INT RIGHTT(TIT,2.:' 


: MIN. 

" SEC. " 
TESTS" 
PERMUTAT IC 


HEXD flMKM flRZQ AUflL BBEP BNMS BTVU B UH Z 

CKPfl DPQZ DWVM EGTM FGLV HQXV KIJKQ KUQX 

K WF U LDXX LIGE LULF LWDE MXNP NTFL OURM 

PQXH PUUF QRFR QUUZ RDFD RKNV RTHE RW IV 

RWOM SHXZ 3QIP TUNS TXUP TVHfl TZOL UflZJ 

UDUP UEVR UKXW WRJV XMEX XXEW VZTV ZJVU 

CLASSES EN 01 MIN. 22 SEC. 

IL V fl EU 1128 TESTS 

IL V fl EU 547 PERMUTATIONS 

ENCORE ?N 

REflDV 



COMBIEN DE MOTS 748 

ERDB BZflfl VSUJ KPTO PUTO WQVL SBI IE FUVU 
FTEIJ WD EU JLEF KUII BRFN KflZZ LNEF FflKU 
CZfiE WPDX B I VU JDZB GRNT NZLK AONS ZMIW 
VXOI F’PGC RWHH BUQV REKIJ QLGR PZOB IJMRL 
PGXU MH LE SNHJ KNZR XDKW FflVV GHKS BFKU 
CAVB flFMI UQWB NXOD PNIP WERG CGRK MIBX 

PATIENCE JE TRIE...' 

flFMI AONS BFKU BIVU BRFN BUQV BZflfl CAVB 
CGRK CZAE ERDB FflKU FflVV FTEU FWVU GHKS 
GRNT JDZB JLEF KflZZ KNZR KPTO KUII LNEF 
MHLE MIBX NXOD NZLK. PGXU PNIP F'PGC PUTO 
PZOB QLGR REKIJ RWHH SBUE SNHJ IJMRL UQWB 
WDEU WERG WPDX WQVL XDKW VSUJ VXOI ZMIW 


1 


CLASSES EH 00 MIN 47 SEC. 

IL V fl EU 1128 TESTS 

IL V fl EU 563 PERMUTATIONS 

ENCORE ?N 

REflDV 



Pour les deux modes de programmation, le résultat est identique 
(sauf la vitesse du tri est légèrement différente, mais ce n'est pas l'ob- 
jet de l'article). 


EXPLICATIONS POUR 

LA MÉTHODE STRUCTURÉE 

Ligne 10 Début du pgm.Appairé avec UNTIL 
ligne n° 490 

Ligne 20 Effacement des variables (ne sert à 
rien au premier RUN). 

Ligne 30 Mise en mémoire delà valeur de N . 

Ligne 40 Préparation d'un tableau (A§) de 5 
cases (0,1 ,2,3,4) et, d'un autre (B§) 
de N cases. 

Ligne 50 Mise à zéro des variables K et V. 
(inutile puisque CLR en 20, mais 
très bonne habitude). 

Ligne 60 Début du S/pgm. qui produira N 
groupes de 4 lettres ; appairé avec 
UNTIL ligne n° 180. 

Ligne 70 Début du S/S/pgm. qui produira 4 
lettres. 

Ligne 80 Tirage aléatoire (RND) d'un nombre 
entier (INT) entre Oet 91 (91 cor- 
respond à la lettre Z). 

Ligne 90 Début d'un S/S/S/pgm. qui « tour- 
nera » TANT QUE le nombre (X) 
sera inférieur à 65 (65 correspond 


à la lettre A) appairé à WEND, ligne 
n° 110. 

Ligne 1 20 La variable sera une lettre au pre- 
mier tour (K = 1 ), une autre au 
deuxième tour (K = 2), etc. 
JUSQU'A CE QUE K= 5 (ligne 140). 

Ligne 1 30 Incrément du compteur k. 

Ligne 1 50 La variable B § , (0) au premier tour 
est l'addition des 4 lettres. 
(Concaténation). 

Ligne 160 Impression à l'écran de B§ (V). 

Ligne 170 Remise à zéro de K. (important). 
Incrément du compteur V. 

Ligne 180 Redémarrage du cycle, JUSQU'A 
CE QUE V soit égal à N (48 dans 
l'exemple). 

Ligne 190 200, 210 sans commentaire ! 

Ligne 220 Provocation d'un décalage de 1 
position entre les 2 premières chaî- 
nes de caractères. (A = 1 B=0). 
T = compteur de tests. 
P = compteur de permutations. 

Ligne 230 Démarrage du S/pgm. de l'ensem- 
ble du classement. 

Ligne 240 Démarrage du S/S/pgm de test. 

Ligne 250 Incrément du compteur test. 


Ligne 260 TANT QUE BS (1 ) est inférieur (0), 
(premier tour) FAIRE (DO) 

1 . Incrément du compteur permu- 
tation (ligne 270). 

2. Permutation dans la mémoire de 
B§ (A) et de B§ (B) en passant par 
une variable intermédiaire (X§). 
Lignes 280, 290, 300). 

Ligne 310 WEND, renvoit à la ligne 320. 

Incrément de B et de A (c'est-à-dire 
2 et 1 pour le deuxième tour) et 
retour en ligne 230. 

Revenons à la ligne 260. Si B§ (1 ) 
est déjà inférieur à B § (0) : saut tout 
de suite à la ligne 340. 

La suite consiste à écrire, avec le même prin- 
cipe, les chaînes de caractères ainsi classées. 
Le SUPER BASIC 2 est doté de l'instruction 
EXC (échange). On peut remplacer les 3 lignes 
280, 290, 300 par une seule : 290 ' EXC B§ 
(B). Cela évite de passer par une variable inter- 
médiaire. (On gagne un peu de temps). 

Dans le prochain bulletin, vous aurez 25 K. oct. 
de frappe, (programme structuré, bien sûr I). 
A bientôt. Alain Bermond 



« Bien maigre, la rubrique du 
MZ80 A » nous reproche-t-on 
souvent ; « bien rare, votre 
courrier » serions-nous tentés 
de répondre. Les « A »istes 
seraient-ils jaloux de leurs 
découvertes au point de se les 
garder pour eux-seuls ? 

Les astuces de ce numéro sont le 
fruit des découvertes de Phi- 
lippe GAC : nous espérons que 
cet exemple sera suivi par beau- 
coup d'autres afin que votre 
rubrique conserve la place 
qu'elle mérite dans nos colon- 
nes. 


RECOPIE BASIC 

Selon la notice SHARP, il n'est pas possible 
d'obtenir de copies du BASIC d'après un BASIC 
déjà copié. Pour remédier à cette anomalie, il 
vous suffit de taper : 

POKE 16895,49 
POKE 16896,66 
POKE 16919,0 

puis appliquer la procédure du manuel concer- 
nant la copie du MASTER BASIC ; vous pour- 
rez ainsi obtenir une multitude de copies ou 
recopies de votre BASIC même si vous ne pos- 
sédez plus la cassette originale. 

QUELQUES DECOUVERTES 

• Adresses des instructions BASIC et de leurs 
pointeurs : 

• Début 5544 ($ 15A8) 

•Fin 5944 ($ 1738) 

• Début des lignes d'un programme BASIC : 

20572 ($ 5050 

• Format des lignes d'un programme BASIC : 


Octet Signification 

0-1 Adresse (16 bits) du début de la pro- 
chaine ligne de texte BASIC 
2-3 Numéro de la ligne de texte BASIC (16 
bits) 

5 à X Texte BASIC en ASCII sauf pour les ins- 
tructions qui sont codées sur 1 octet (de 
128 à 255). 

X + * Code retour chariot (CHR$(1 3) ou $OD) 
qui indique la fin de ligne BASIC. 

Une dernière routine intéressante : elle trans- 
forme le contenu du registre 1 6 bits HL en une 
valeur décimale ASCII rangée dans 5 octets à 
partir de l'adresse 1 91 24 ; cette valeur se ter- 
minera par un $OD (retour chariot). 

Exemple : si HL contient la valeur $1200, un 
CALL $ 1 841 (c'est l'adresse de départ de cette 
routine) placera, à partir de l'adresse 19124 les 
codes ASCII « 4 », « 6 », « 0 », « 8 », « CR ». 
4608 étant l'équivalent décimal de $1200 
HEXA. 




80 B 


DESASSEMBLEUR 


le programme que nous vous 
proposons sera utile a ceux qui, 
lassés du BASIC, veulent tâter 
du langage machine. Après 
avoir entre le programme (bon 
courage), un menu général 
apparaît : 

DESASSEMBLEUR: 

donne les mnémoniques du langage machine 
(L.M. pour les intimes) sur l'écran ou sur impri- 
mante. Les branchements relatifs sont indiqués 
en adresse absolue. 

CHARGEUR HEXA : 

permet de créer un programme L.M. avec un 
minimum d'erreurs et dans un temps relative- 
ment court. Les codes opérations sont entrés 
en hexa et les branchements relatifs calculés 
par le programme. 

On a la possibilité d'insérer un NOP (touche 
INST) ou de remplacer une instruction par des 
NOP (DEL). La touche HOME retourne à 


l'adresse initiale et les touches cur- 
seurs et permettent de se déplacer ligne a 
ligne (SPACE a la même action que ). 

Fl permet d'entrer une chaîne de caractères 
en ASCII pour les titres L.M. 

F5 exécute le programme qui est en cours de 
chargement (voir plus bas) 

Fl 0 met le pointeur sur une autre adresse. 
Remarque : Le L.M. est toujours chargé à par- 
tir de COOO, mais pour plus de commodité, on 
peut simuler une implantation différente. Les 
adresses sont recalculées. 

CONVERSION : 

passage décimal hexa et réciproquement. 

RECHERCHE DE DEUX OCTETS : 

donne les adresses d'implantation d'une suc- 
cession de deux octets en mémoire. 

TRANSFERTS: 

Le programme L.M., (a l'adresse COOO on vous 
l'a dit) peut être placé à une autre place en 
mémoire (RAM RAM) ou enregistré sur dis- 


quette (RAM FLOPPY) sous forme de code 
ASCII. 

Il peut égalment être lu sur la disquette 
(FLOPPY RAM). 

Une petite modification des ignés 4720 a 4738 
permettrait les transferts sur cassette. 

EXECUTION: 

exécute le programme L.M. avec affichage du 
contenu des différents registres à la fin du 
travail. 

Attention : tout L.M. doit être terminé par un 
RET (code C9) afin de redonner la main au 
BASIC. Sinon... à Dieu va... branchement au 
moniteur dans le meilleur des cas... 

VISIRAM : 

affiche le contenu des mémoires en hexa et les 
oooooododdddddedes ASCII correspondants. 
En choisissant l'option DATE, on obtient le L.M. 
sous forme d'uATAS décimales (sur écran ou 
imprimante) prête à être réutilisée dans un autre 
programme pour charger le L.M. (READ A : 
POKE l,A). Arrêt du programme par « / » 

FIN: 

C'est terminé : on quitte le désassembleur, 
mais le L.M. est toujours accessible par USR 
($C000). 

Jean MILLET 


û REM* * ************** **'*'* ** * ** * * *•*'** * *' ' 

O REM* ****** DESASSEMBLEUR *********** 

O REM***-***** Jean Mil 1 et ************ 

O REM********** OCT 1984 ************* 

0 REM ******************************** * 

10 CONSOLËN, Ç4Q < S3 < -22: L I M I TDiAFDFï S*«STRIN 6 * , 40 ) s CUR50R0, 1 : PR INTS*: CURBORO, 2 

3 : -PRIN.TS* : BX*= " q 123456789 ABCDEF " s, M0.=.4.5024 : M i “49.152.: DÉF KEY (1 ) =RUN100 4 L 
20 DI MAO* Ci/) < A 1 * (63 ) ,;A2*.(7) .A3* (63) iA4*(10) ,R*(7> , AD ( 20 ) s AO* ( 0 ) = " ( ÏX + " s AO* f 1. ) =" 

< I Y.+ " : M*= "F'ati ence, j ’ apprends les codes Z--80. . . " s 60SUB600 

30 FOR I =01063 s READA 1 $ ( I) : NE.XT s FORI =0T07 : READA2* ( I >. s NEX T : FOR I -0T063 s F<EÀDA3* <'l>? N. 
E X T s FOR I ==OTÜ 1 0 : READA4* : ( I ) ! LIE X T s FOR I ==0TQ7 : RËADR* I ) : NE XT 
40 FOR I =45056X0451 09 : READR s F'OKË T. Rs NEXTS DEF FNF ( X > =256*F'EEK ( X + l > +PEEK C X ) 

99 REtM : ============MENU=-============ 

100 Y=2 s G0SUB604: 1 = 1 sM*="* DESASSEMBLEUR 2-80 * " : BDSUB602 : PR I NT T AB ( 7 ) S STR 1WG*1 "v 
* " , 25 } ;; > SOSÜB 1 50 : PR I NT " Desassemb 1 eur ; s GOSUB 1 50? PR I NT "Chargeur hex a ! i GQSIJB 150 Y 

1 1.0 F'R INT"Con ver si on " : s B13BUEJ 150 s PR INT "Recherche d’octets" s : GOSUB 150 : PR INT 11 )"r ans : ; 
ferts" ; :SOSUB 150: PR I.NT "Execution "4 : GÜ3UB 150 SPRINT "Vi si ram"! 

1 20 BDSUB 150 : PR I NT "Fi n " 5 TABT32 > S " * " : PR.I NTT AB' ( 7 ) 5 " * " ? TAB X 32 ) S " * " : PR I NTT AB f-7 >' S STR : 
I IMG* «" * '*■' , 26 ) : M*=SPACE$ i 30) + " Choi ?" : GCISUBBQO 
130 60SUB610:ÜNR-4BS0TD45Û0. 4000,4300, 4400, 4700. 4900, 4B00, 5000 MSOTD 130 
150 ' PR I NTT 1 AB < 32 "*":PRINTTAB(7) ï " * " 5 TAB < 32) 5 " * " : PRI NTTAB ( 7 i s •**": 1 ! " "i s 1 = 1 + 1 :R 
ETURN / / 

500 I=INT(N1/S> s R=NI -8*1: RETURN 

529 REM ============3UB.: IMPLANTATI 0N= 

530 PRINT"444* IMPLANTATION' - ;TAB (24 ) ; "s "!H*S "H " : PR INTT'AB (26 ) : : INPIJ'l "IP' ! ,H2*: H2* 
=LEFT*(H2*,4) : G0SUB241O: FmNTTAB (32) 5 " lj = " ! N2 : RE Î URN 

539 REM ===-======:===suBi T 1 TRE======== 

540 PR INT" TAB (9) ;"* TITRE (16 CAR. MAX. > * " s PRI NT "4 " ; TAB ( 1 3 > s STRING* ("-'■" .1 fa ) 
:PRINT"H"5 TAB<T3> S s INPUT"" : T*rIFLiIN <T*) 716THEN540 

545 FOR I = 1 TD165 IF'MID* CT*, T ,1 ) < •>"'>■• 11 THENNEXTs RETURN 
547 T*=LEFT* (T*, ï-1) : 1 = 16: NEXTs RETLIRN Y 

549 REM ============BUB. IMPRIMANTE=== 

550 MUSIC"CO":M*="EBITION SUR IMPRIMANTE ? . ,<.Q/N ) •***»**»" : G0SUB600 : G0SUB61-0 . 

552 IFR<>79TMENP=0:pRINT"llBfflB«( l, ! LP=iB: RETURN * 

555 P ~ 1 s MUS IC "DO" s M*=" Nombre de ligne® du papier uti lise : 72 " : B0SUB600 : CURS0R37 
,24: I NPUT 11 " : L. : LP=L 7 : PR INT' " #44 " : TAEÏ ( 1 1 ) S "IMPRIMANTE B. V. P. •" : B0SUB605 : RETURN 

599 REM ============suTr. AFFICHASES==== : 

600 Y=24 : B0SUB604 : CURS0R20--LEN ( M* ; 72 ,2.4 : F'R I NTM* S s RET URN 

602 Y=0 : G0SUB604 : CURS0R20— LEN ( M* ) 72 , Ci : PR I N TM* s Y=24 : SCI3UB604 ï PR INT " ; : RETURN 

604 CURSDRO, Y: PRINTSPACE* ( 39) ; : RETURN 

605. M$= " Pour cont inuer, pressez une .touche ! 1 s G0SLIB600: GCIT06 1 O 
606 M *'.= 11 tttJjM Pr esseï un e touche " : 0QSIJB6OOs B0SUB61 0: GOTO 1 00 
60 7 PRI NT"44" ! TAB < 1 2) S "Di skette S. V. R. ! " : GGTÜ605 

609 REM i=======--====BUB. RÉPONSE======= 

610 GETR*: IFR*=" "THEN610 
■612 R=A 8 C,(R*> s RETURN 
615 GCISUB610 

61.6 R=E+7* (R>64> -48: IF (R<0 ) + (R > 1 5) THEN6 1 5 
617 RETURN 

619 RE. r M ============sa 1 s 1 £ ADDRESSE=== 

620 '..PR I'NT "44* ADRESSE " ï M* i TAB ( 24 > : ": >. . , H-*****»*»" ; : H2*= " » : N2=0 s FOR I = 1 T04 : GUSI.IB6 
15: PRI N TR*; " '>•*>" ; s H 2 * =•• H 2 i + R $ : N 2 = R + 1. 6 * N 2 s N E X T : P R I N "f ' 1 H =" s N? s RETURN 
' 625 PR I N T " ■»" ; s M*= " DEBU T " s GDSUB620 : D=N2 : H*=H2* : M*= " T T T-i " s bÜSUbfc .•'< • ; 1 -N , 

626 IFF< DTHEN625 


62 . RE i i IR N ■ 

629 REM ============SAIBTE ;0CTETB===== : : 

630 J=0: S*=" " ' 

632 Hl* = " N1=0: F0RI = 1TÛ2: PRINT" ; 

635 B0SIJB610: IF (R=7) * C.T20) * (1 = 1 ) THENJ=J- I: A=A- L: PRINT " ; s BOT 0632 

640 B0SL)B616: PR TNTR*S s H;i;*=Hl t+R*: Nl=R+.t 6*N1 : NEXT's 'PQKEA, NI : A=A+.1. : S*-H1*+S*: PR TNT 
" " 5 : a=d + l.:: IFJ7NBTHEM632 . 

645 RETURN '. 

649 REM ============DESHSSEMBLEiJR==== = 

700 N2=A-DE : : N2=N2-65535* (N2<0) : 609062310: L0*=H2* : 

705 Lj *=" " : L2*=" ">L.F'*=" " :0=A: GpSUB2500iU4=l. : IFNl.<64THENH*=A j * (NJ. i ! B0T0B40 
710 IFN1 = 1 1STHËNH*= ''HALT:' 1 : G0TQ1 790 

720 IF.N1< l'2BTHËNMl=N.l--6'4ï GCSUB500 :'H*= "LD " t-RT f I ) + " , "•FR* < E> î Gqtn 1 790. 

730 TFN1< 192THËNN1=N1 -12S: G0SUB50O: H*=A2* ( T) +R* (R) sSHTOt 790 
800 H*=A3* v N 1 - 1 92 ) 

840 N=yHLTkE;FT*fH*, L) ) iLÇLEN (H* ) ï : IFL>1 THENH*=RIBHT* ) 

85ü: 0NNGUT01. 790 ,1.060 .1140 , T :,:':4'.:), T3'i O, 152(T, T 31 Oï S TUF 
; ;105p'TREM==--===;====W:s=CAS; : .v2jT3CTE’m 

•1;060: :;:p-A+ ;i4îGQSUB25pp:: S*=fil .'** ".Ni".:: GQSÜB2520s ; GaT : QI.790:-:7": ;: ): 

^ii3çHîE:rfii§§i^^ 

1 14O..j;Ôi=A+.ïi*'60SUB i 2SÔp:jS , ÿ : 0=Ai;2 : G(TSL1B2500 Qpgi rKlTO I 79o 

i'230; :teM====;=====-==INBT' eBXX==~=== : =i45 :Ç:7 

I 240 0-A'tl:::ppSÜB25p@::;GQSliB5O 3 ; ) (p > : gq ) q j 790 

125i.' T 1= tN I ( T /B) SRI =J -8* I 1 : U*==A4‘Ü ( 1 3 +7) fETR* 1 RI ) + " , ' RR* 1 R / ; uni 1 1 I '■-u 
îpOOORp^^^P-^si^lNSTYpD;^ 

1 3:i;Q ( N=: Z y s û.=A+ ; i;::6DâlJB25P0 fIF 

1 330 ; RËST0RE340a S FbRM=:tTa39 sCRÉADR* s: ; IFH 1 *=L ËFT* ( R* , 2 ) THEN 1 370 
1350 NE X 1 M : EiOTO 3 760 


1.370 N=VAL. (MID*(R*,3, 1) ■') +1 : H*=RTGHT* (R*'; LENCR*) -3) : IFO= ibqbi JB7750 
1410 IFN=2THEN1 790 

1420 D=A+2: GdSUB2500s.S*=H l *+ "H" s IFN=3tHENB0SUB2520 : GOTO 1790 
1450 0=A+3 : GQSUB2500 : I F'M< > 1 1 T'HENS*=H1 *+S*: 8QSUB2520 : GOTO 1 790 
1470 GDSUB252ÜS S*=H1$+"H” s G0SUB2520: G0Tül 790/ 

1510 REM= =========== INST Ë:d============7 


1520 O-ft+1 : G0S.IJB2500: REST 0RE3500 : F0RM--1 1056: REÎADR*: IFH i *=l FFT* i PS, 2 ) "TRFN 1 5 7' O : 

1 550 : NÈXTM : GOTO 1 7t>0 

1.570 N=VÂL(MID$ (R*,3, 1))4'1;ET*.«RIGHT*(R*,LEW(R*.)-3):;J:fN=2THEN1./9.0, : 

; 1600 : 0=A+2: G0SUB2500! S*=HL*+"H" s 0=A+3s GDSUB2500 ï S*=hl 1 *+S* : GQSUB2520; GÏJ TOI 790 : 
1640 REM==:==========INST DDCB-F DCB===== 

1660 Q=A+2: GQSUB2500: S*=H1*+"H.) " s Q=A + 3: G0SÜB25O0: G0SUB5OO: IFR; -6 l'HFN i 760 

1670 IFI<8THENHl*=A4*Ci:) ! GOTO 1700 

1680 I1. = INT (I7ET) : R 1 = I v-S* 1 1 : H 1 *=A4* ( 1 1 +8) +R* iR 1 ) 

1 700 H*=H1*+A0* (V) +£)*: N=4 : G0T01790 
1740 REM============INST INVAL IDE===== 

1760 LP*= " " ! L1 *=■" " s-L2*=" ” : 0=As G0SIJB2500 s L3*= " .?■? . ,. ." : L4*= " ''l!L.5*= " " : N= 1 s HE Tl ÎRN 
17E30 REM============F1N DE DESAS. ===== ' 

1790 L-LEN (H*) S FORI = l.TOLs IFMÏD* (RI*, I ,T,> <:7 ; “ I HENNE X T" I ï L3$=H$; i 4*»" " : 00103 B I 
1800 L3*=LEFT* (!■«, I--1) : L4*=R IGHT$ (H* , L= I ) : 

1810 L.5*=" " : I FL3*= "CALL " THENL..5*= ,I ==' 1 : REITURN 

: 1.820 IF (L3*=" JR";) + (L3*= " DJIMZ " ) THENS=PEEK (A+l ) s N2=A+2-DE+S+256* 03 i l??) : NOS! jF<?33 O 
U....S$= "4 " +H23H- "H " s RETURN 
1830.:. RETURN . : 

2250 REIT==CONV. DEC I -HEXA COURT======== : 

2260 Z1 = 1'NT (NI 716) s Z0=N 1 - Z 1 * 1 6: H1 *=MID* <HX* , Z 1 + 1, 1)+MI0*<HX*, ZO+1, 1) s RETURN 
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34 20 DA I A " ? 1 . :! 1> 1 1 X + 1 > , C " , " : 722LD- 7 DIX +:T)/2D " v:"932LD Z ( 1 X + :■! > ;,. E " « ;"-.7 4.13UIP"; : : -C IX^:.^:>; ; -,. E H;‘:! : :ÿ:-":;i? : 

5 21 JD V I x+ t) , L " , "772LD 1 . < I X + -r > , A " 27/7ë2lIIZA2Z( T ^ 2m 722 X+:|) :V : A " Z/Z 

J 3430 DA I A" 8E2ADC A , 0 1 X + t ) " , "96 2BIJB > T I X 9 CT/" J ;T9E28Bp JA;, T ; I X + 1' ! e :>v^;A^S;A|iDiJ;:i "OT" A 

E2 X OR : i 1 X + -t ) » , : " B 620 R ■■<■ ï X + f j " “BE2CP (IX-+t 5 •;'!■ v :" ; Ê3iEX|:: ; 0SP : ) ^ v ,'.' E51 v PÜ 3H;1|X ": : . i 
:'.;■ :3440 .::dat : A;"E9I,:ïp:: : : 1 ix) . :•_■ 3 : : js.F?;i:; ï;^9*;v:;V : 70gï4io!=v;ivt x :-:!; : 'J;: :;;. j; : ;r : -;:'; i] j 'i;;.;'. - : - : ôj : X; 

I 3499 F:EM=”-Ti-"iBi E DES! ED X : X=49= 2====^2^^=^J \ ; , 

: 3500 DATA:"4u1IN^ ,:B'.J(Cv " 3l',41 1DUT :TC) <:B3 x "4:2:1SBC1:HL : ,:BC;" ; ,:"43:3LD:; 
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4003 G0SIJB6 1 0 : I FR= 1 7 T HEM 1 00 
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! L.5$ : A=A+N: 60T04002 

4006 I F ( R-2 > * ( CSRV >3 ) THEIMCV ==- 1 s B0SUB4200 s. A=N2+DE 3 F'R I NT " " ï ! CURS0R4 , CSRV- 1 : PR I WT : 
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4003 IF ( R= 7 ) *: ( CSRVXI 22 ) THEMCV=1 : GQ3ÜB4200 ï A 1 =|M2+DE:ï FOR I - ATO A 1 - 1 s PQKE I v 0 TIME X T : GGT 
D4205 
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40 1 2 R=R+7 * ( R >64 ) -43 : I F < R< 0 ) + < R > 1 5 ) THENUSR ( *ÉBE ) -s GO T04003 
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STEP- 1 : C$= " 0 " : I F I NT ( A/V > =' 1 TF!ENC$= " 1 " : A=A-- V 

4955 S$=3^+C$+" " : V=V 72 : NE X T : F'R I NT " F r = " ï Si : F : 'FÏ I N TT AB ( 24 ) 5 »û f 1— +-H " : PR I 

NTT AB (24) 5 "S Z H P IM C" s IFFRTHEN606 
4960 G0SUB605: A=M1 : GQT04001 
4999 REM ======= FIN ========= : 

•5000 L I M I TMAX s CDIMSDLEN , C40 , SO , 24 : PR I NT " ■U4JDESASSEMBI..EUR est f i n i „ " : DEF KEY ( 1 > =RU 


CONEZ VOS MASTER 
DISQUEITES 


Vous savez, sans doute, qu'on ne peut faire 
des copies de l'interpréteur basic, qu'à partir 
de la disquette mère (MASTER). Une copie de 
cette disquette devient SUB-MASTER et ne 
peut plus être recopiée. 

Aussi faut-il faire particulièrement attention à 
ce qu'il n'arrive pas malheur à cette disquette 
mère. 

Pour mettre fin à cette situation désagréable, 
voici la procédure à suivre : 


1 - Chargez le programme 'UTILITY'. 

2 - Passez sous le contrôle du Monitor en 
appuyant sur le bouton 'RESET' à l'arrière de 
l'ordinateur. 

3 - Modifiez l'adresse 1 3E3 avec l'instruction 
'M' du Monitor (remplacez 20 par 1 8 en 1 3E3). 

4 - Retournez au programme 'UTILITY' avec 
l'instruction 'J' à l'adresse 1220. 
Ci-dessous, voici ce qui doit apparaître à 
l'écran : 


** MONITOR SB-1510** 

* M 

M-ADR.$13E3 : modification de l'adresse 
13E3 

1 3E3 20 1 8 : afficher 1 8 puis 'CR' ou 'ENT' 
13E4 23: appuyer sur 'BREAK' pour 

* j arrêter 

J-ADR.$1220 : saut à l'adresse 1220 
Vous pouvez alors faire des copies de sub- 
master en utilisant l'instruction 'C' (disquette 
copy). 

REMARQUE : 

Je n'ai pas testé la validité des autres instruc- 
tions, après cette modification. Donc si vous 
voulez initialiser il serait plus prudent de rechar- 
ger le programme 'UTILITY'. 

J,M. SUPOR 


LE MONITEUR SB 1510 
PAS A PAS 


Nous commençons dans ce bul- 
letin l'étude du MONITEUR du 
MZ80-B. 

Il a trois fonctions essentielles : 
• ordres moniteur : permet 
d'afficher ou de modifier les 
mémoires, et d'enregistrer ou 
lire sur cassette des zones 
mémoire. 


• gestion de l'écran et du cla- 
vier, saisie de ligne. 

• fonctions relatives à l'hor- 
loge, et a la « MUSIC ». 

Dans toute la suite, les adresses seront don- 
nées en hexadécimal, avec les mnémoniques 
du manuel de référence. 

Pour avoir la signification des ordres du Z80, 


nous vous conseillons l'ouvrage de Alain 
Pinaud, « Programmer en ASSEMBLEUR », aux 
éditions du P.S.I. Nous vous rappelons simple- 
ment a propos du Z-80 qu'il possède des regis- 
tres notés A B C D E F H L, le contenu des regis- 
tres sera noté entre parenthèses, et nous utili- 
serons le signe correspondant à l'affecta- 
tion : A 2 ; A est chargé avec la valeur 2, 
donc A = 2. 

Nous étudierons donc le MONITEUR, par adres- 
ses croissantes, en trois parties, correspondant 
aux différentes fonctions. 


LES ORDRES MONITEUR : 

0000 à 0037 : Zone contenant les caractéristiques de fonctionnement - On peut remarquer en particulier : 


00003-0004 

FLPOS : 

adresse absolue du curseur dans VRAM. 

00005 

ONTYO : 

code de durée de la note jouée. 

0006-0007 

KEDA et 
KESTRB : 

codes de la dernière touche enfoncée. 

000B 

SCROST: 

numéro de la première ligne d'écran. 

OOOC 

SCREND : 

numéro de la dernière ligne d'écran. 

000D 

FLASH : 

code ASCII du caractère masqué par le curseur. 

000E 

FLSDAT : 

code ASCII du caractère clignotant affiché (1F ou FLASH). 

000F 

AMPM : 

0 = matin, 1 = soir. 

00013-0014 

SCRST : 

adresse le début de VRAM (D000). 

0015 

SWRK : 

active le BIP de chaque touche si contient 00, pas de sonorisation si FF. 

0016-0017 

INIC1 : 

heure en secondes. 

001B-001C 

SCRSIZ : 

nombres de caractères disponibles sur l'écran. 

001 D 

TEMPW : 

tempo de la musique. 

0023-0025 

FOARE : 

affichage 00 du pavé numérique. 

0026-0027 

KDATW et 
DATW1 : 

codes de la touche enfoncée, ces valeurs sont recopiées dans KEDA et KESTRB si la touche est validée. 

002B-002C 

SUMDT : 

nombre de bits longs, dans un programme, sert de test ; valeur chargée par CKSUM. 
Utilisés également comme adresse de départ dans les ordres MONITEUR (SHL). 

002E-002F 

STACK : 

rangement de l'adresse du pointeur de pile. 

0033-0034 

CSMDT : 

nombre de bits longs d'un programme, valeur testée par TVRFY. 

Utilisés également comme adresse de fin dans les ordres MONITEUR (EHL). 

0035 

REPTCT : 

temps de répétition des flèches curseur, prend la valeur 40H. 

0036-0037 

RATIO : 

période de la note jouée. 


80 B 


003B à OOAB : Zone d'initialisation des différents modes, et affichage du titre. 


OOB1 


Saisie de la commande moniteur (J, M, D, L, S ou V), et branchement à l'adresse correspondante. 
La ligne introduite est placée dans BUFER (103F ...), seule la première lettre après * est prise en 

appelle : NL PRNT GETL 

OOF9 


Ordre MONITEUR M (modification) ; modifie les octets mémoire (si CR rien, si BREAK retour en ST) 
appelle : KIN NLPHLS PRTHX PRTS GETLBR 2HEX 

0120 

9EKH3 

Ordre MONITEUR D (visualisation mémoire) ; affichage hexa du contenu des mémoires : 

adresse de départ : SHL ; adresse de fin : DE ; nombre d'octets affichés par ligne en B (C40 : 8, C80 : 

WIÊttÈtiÊÊtËfÊlÊlillÊIÊiÊËÊtÊÊÊKIÊKÊÈIÊIÊÊÊÊÈÊIÊÊÊÊKÊÊÊtËÊÊtlÊllÊmÊtmÊÊlÈÊÊÈÊtË. 

appelle : SSET ESET NLPHLS PRNTS PRTHX BRKEY 

OHE 

MSAVE 

S 2 

01 CB 

MLOAD 

ordres moniteur L : charge MWARK (0216) avec 1 

0217 

MVRFY 

V 0 

puis branchement en MENAME. 


MENAME 

Affichage de FILE NAME et saisie du nom du fichier. 

appelle : 7DINT NLMSG GETLBR 

puis branchement en MLOVE si MWARK < > 2 

Si ordre S on continue ; demande adresse de départ, de fin, de branchement puis écriture sur cassette 
des caractéristiques à partir de IBUFE (10C0) et des données du programme. 
appelle : SSET ESET KINP HLHEX ?WRI ?WRD 

01CF 

MLOVE 

Chargement des caractéristiques du programme cassette (?RDI), puis comparaison entre le nom saisi et le 
nom en mémoire (si OD pas de comparaison), si différence : retour. 

Si MWARK = 0 branchement en MVERY, sinon affichage de LOADING « ... », lecture du programme et 

branchement a l'adresse d'exécution. 

appelle : ?RDI NAMECK MVERY DSPNAM ?RDD 

01F6 

NAMECK 

Comparaison des 16 octets d'adresse de début NAME (1061) et des octets suivant BUFER + 10. 
Si différence, retour à MLOVE ; si égalité (Z=0), retour à l'appel. 
appelle : DSPNAM SAME SERSP MSTOP DEL6 

021 A 

MVERY 

Affichage de VERIFYING « ... », vérification des données cassette ; si erreur, arrêt et retour en ST ; 
sinon, affichage de OK et retour en STI 
appelle : DSPNAM ?VRFY NLMSG 

024B 

JUMP 

Ordre moniteur J : branchement à l'adresse HL. 
appelle : KIN 

0251 

7WRI 

Préparation à l'écriture du titre sur cassette (la zone IBUFE (10C0 ...) est remplie). 
D 1, HL IBUFE, BC 80H puis WRI1. 

0282 

?WRD 

Préparation à l'écriture des données sur cassette. 

D 2, HL (DTADR) : adresse de début de lecture, BC (SIZE) : longueur. 

025A 

WRI1 

Ecriture titre (D = 1) ou données (D = 2) sur cassette. Il y a calcul de la somme de test, démarrage du 
moteur, affichage du titre si D = 1, puis écriture sur cassette. 
appelle : CKSUM MOTOR DSPNAM TSPE GAP WTAPE 

028E 

?RDI 

Préparation à la lecture du titre sur cassette. 
D 4, HL IBUFE, BC 80H puis RDI. 

02B2 

?RDD 

Préparation à la lecture des données sur cassette. 
D 8, HL (DTADR), BC (SIZE) puis RDI. 

0297 

RDI 

Lecture titre (D = 4) ou données (D = 8) sur cassette. 

Il y a démarrage du moteur, lecture de l'identification puis lecture des données. 
appelle : MOTOR TMARK RTAPE SERSP MSTOP 

02BE 

7VRFY 

Vérification des données sur cassette. 


D 8 (lecture de données), HL (DTADR) (adresse de début du programme), BC (SIZE) (longueur). 

Il y a calcul de la somme de test, démarrage du moteur, recherche titre, vérification puis arrêt moteur. 

appelle : CKSUM MOTOR TMARK TVRFY 

Après ce sous-programme, si erreur C = 1, sinon C = 0. 




Ecriture sur cassette. 

E 2 : le programme est écrit deux fois. HL contient l'adresse de départ, BC la longueur 
Il y a enregistrement des (BC) octets du programme, de la somme de contrôle (SUMDT), d'un TOP Ion 
de 255 tops court et enfin de l'ensemble précédent (E = 2] 
appelle : WBYTE BRK LONG SHORT 
Lecture sur cassette. 

E 2 : nombre d'enregistrements. HL contient l'adresse de début du programme, BC sa longueur. 

Il y a attente des données sur cassette, remise a zéro de (SUMDT), lecture du programme, de la somme 
de contrôle enregistrée et comparaison a (SUMDT) d'où relecture ou affichage d'un messaqe d'erreur 
appelle : EDGE DLYR RBYTE NLMSG 
Vérification cassette. 

E 2 : nombre d'enregistrements. HL contient l'adresse de début de programme 
longueur. 

Il y a attente des données sur cassette, comparaison des octets (lus et en mémoire) 

(SUMDT). 

appelle : EDGE DLYR RBYTE 

Après ce sous-programme, retour si OK sinon message d'erreur (sous-programme T 
Ecriture d'un octet sur cassette. 

A contient l'octet, B 8 (octet) 

Enregistrement d'un top long de début d'octet, puis top long ou court suivant la valeur du bit (1 ou 0). 
appelle : LONG SHORT 
Lecture d'un octet sur cassette. 

HL 0800. Il y a attente d'un signal, délai de durée comprise entre celle d'un top long et celle d'un top 
court (41 H), test de signal sur la bande (IN A, (El H) si rien le top était court d'où C 0, si signal le top 
était long, d'où, C 1, puis rotation de L a travers C, H est décrémenté, lorsque H = 0 : fin, on charqe A avec L 
appelle : EDGE DLYR 
Ecriture de l'identificateur sur cassette (placé en tête de tout enregistrement). 

D est chargé (1 si titre, 2 si données). 

Si D = 1, BC 2710, HL 2828 et si D = 2, BC 2AF8, HL 1414. 

Il y a alors enregistrement de (BC) tops courts, H longs, L courts et 1 long. 
appelle : SHORT LONG 
Lecture de l'identificateur sur cassette 
D a la valeur 4 pour le titre, et 8 pour les données. 

Si D = 4, HL 2828 et si D = 8, HL 1414. 

Il y a lecture des tops courts, attente des tops longs, comptage de ces tops longs, et retour au top long 
suivant. 

appelle : EDGE DLYR 

Calcul de la somme de test dans un programme (nombre de bits 1). HL contient l'adresse de départ, BC 
la longueur. 

La somme calculée dans DE est placée dans SUMDT et dans CSMDT. 

Boucle d'attente de signal sur cassette ou de BREAK. 

Au retour C = 0 si la lecture est normale, C = 1 si la touche BREAK a été enfoncée. 

Mise en route du moteur, avec les tests de fonctionnement. 

Il y a blocage du clavier sauf BREAK, vérification cassette enclenchée (sinon message, ouverture de la 

porte, et attente), passage a PLAY si lecture ( D = 1 ou D = 2), sinon vérification que la cassette n'est 

pas protégée (sinon message et ouverture de la porte), passage a MOTWG. 

appelle : KBSET NLMSG OPEN BRK DEL1M PLAY MOTWG 

Ouverture de la porte cassette. 

appelle : DEL IM 

Mise en route du moteur en mode enregistrement. 

Mise en route du moteur et enregistrement ou lecture suivant le mode choisi. 
appelle : MPLAY FR 

Arrêt du moteur et avance rapide après la lecture. 

appelle : MSTOP DEL6 FFWD 

Arrêt du moteur et passage au mode lecture. 

Avance rapide cassette, et détection éventuelle de BREAK. 

appelle : KBSET BLK3 FR 

Attente 4s. BC 0F2B puis D 1 M 

Attente 300us. BC 0123 puis DIM 

Attente 2s. BC 0796 puis DIM 

Temporisation suivant la valeur de (BC). 



NLMSG 


GETLBR 


DISPNAM 


PRTHX 


Enregistrement d'un top court sur cassette. 

Sortie d'un signal pendant une durée c 
appelle : DLY 
Enregistrement d'un top long sur cassette. 

Sortie du signal pendant une durée correspondant a un délai de 5AH, puis rien pendant 55H. 
appelle : DLY 

Attente pour la lecture de cassette. A 41 H puis DL 
Cette valeur 41 H est comprise entre 2AH et 5AH (to 
Boucle d'attente. La valeur est chargée en 055C. 

Permet d'avoir des temporisations courtes pour les tops d'enregistrement 
Bloque le clavier et détection de la touche BREA 
appelle: KBSET 

Détecte BREAK. Si BREAK, C = 1 sinon C = 0. 

Bloque le clavier, prépare à la lecture de BREAK. 

Affiche S-ADR$, saisie d'une adresse en hexa. 

Cette adresse est placée dans SHL (002B-002C). 
appelle : KIN 

Affiche E-ADR$, saisie d'une adresse en hexa, 

Cette adresse est placée dans EHL (0033-0034). 
appelle : KIN 

Saisie de 4 chiffres hexa sous forme ASCII, transformés en nombre place dans HL. 
appelle : KINP HLHEX 
Saisie de 4 chiffres hexa (code ASCII). 

Il y a affichage de S ou 
7) à OD. 

appelle : NLMSG GETLB 

Affichage nouvelle ligne et de la chaîne commençant à l'adresse contenue dans DE, jusqu'à rencontrer OD. 
appelle: NL MSGX 

Affichage nouvelle ligne, du contenu de HL puis d'un espace, 
appelle : NL PRTHL PRNTS 

Saisie d'une ligne ou de BREAK. Retour en ST (00B1) si BREAK. 
appelle : GETL 

Affichage d'un message (adresse de début ; (DE), puis du nom du programme (adresse de début : (NAME)) 
appelle : NLMSG MSGX 
Affichage du contenu de HL. 

(HL), nombre hexa, est affiché sous forme code ASCII. 
appelle : PRTHX 

Affichage du contenu de A (nombre hexa) sous forme de code ASCII. 

On transforme d'abord les 4 bits supérieurs puis les 4 bits inférieurs. 
appelle : ASC PRNT 

Convertit les 4 bits inférieurs de A (chiffre hexa) en code ASCII. 

L'opération est la suivante : A A + 30 H, si < 3AH, A A sinon A A + 07H. 

Convertit A (code ASCII) en chiffre hexa sur les 4 bits inférieurs. 

L'opération est la suivante : si A> = 47 H, erreur (C 1) sinon A A - 30 H. 

Les 4 codes ASCII placés en DE, DE + 1, DE + 2, DE + 3 sont convertis en un nombre hexa placé dans HL. 
appelle : 2HEX 

Convertit 2 codes ASCII placés en DE et DE + 1 en valeur hexa mise dans A. 

Les 4 bits supérieurs de A (DE), les 4 bits inférieurs (DE + 1). Si erreur : C 1. 
appelle : HEX 

Comparaison de deux blocs de mémoire. 

Adresse de début premier bloc : (DE) 

Adresse de début deuxième bloc : (HL) 

Longueur à comparer : (B) 

Il y a arrêt si on trouve OD dans la chaîne DE, ou si toute la chaîne a été parcourue. Si différence Z 1, 
sinon Z 0. 

Remise a zéro d'une partie de la mémoire (A 0). 

Chargement d'un bloc mémoire avec la valeur de A. 

Adresse de début : (HL), longueur : (B). 

Différents messages pouvant être affichés. * ■ Jean Mj || et 



JEUX 


DOO 1 s ROLLAND BAR 
D002ï LABYRINTHE 
D003: CASSE BR I QU 
D0O5SBID ASTRAL 
D006 * ESPER . VIE 
D007 : JACK POT 
DOOS'D 8t D 1 
D009 s 421 
DO Ils JEU ROYAUME 
D012 ï COMBAT DUEL 
DO 1 3 î LOS IC-LETTR 
D015ID 8c D 2 
DO 16: SNAKE 
DO 1 7 * D 8c D 3 
D018: SIGNES CACH 
D019S HANOI 
D020ï TCHOUKA 
D021SLABY GRAPH 
D022 ï TRAIN 
D023 : MORPION 
D024: BALOMUR 
D025S PENDU 1 
D026: ROSE. VENTS 
D027 : TRESOR 
D028: GRAPHIQUES 
D029 s TRAJECTOIRE 
D030 * PSY 
D03 1 : NU 

D032 : SAVON ZIP. . 
D033S CHOUETTE 
D034: POLYGONE 
D035S MACARON 
D036ï PAON 
D037S BOULE 
D03B: CROIX 
D039ï SYMETRIE 
D040S COURBES DIF 
D04 1 ï COURSE 
D042S OBELIX 
D043: SNOOPY 
D044 s EX07 
D045ï FRANCE 
D046: MAPPEMONDE 
D047: DEMINEUR 
D048*. TEMPTER 
D049 ï LOCO 
DOSOïMZ 80B 
D051 ï SHARP 
D052: ASTERIX 
D053 ï PC 1500 
D054î PICSOU 
D055 : TBN 
D056 * GOLF 
D057! ASTEROÏDES 
D058 ! SER . OIS 
D059Ï KABOOM 
D060: STEEPLE CH. 
D061 : SMASHER 
D063: QUICKEYE 
D064 s UFO 
D065: CANON 
D066 : F I RE MAN 
D06B.-CAL METEO 
D069 : M AN AGER 
D070SCHIF. CASES 
D071-- PENDU 
D072ICMPT TAUPE 
D073s TIR AU VOL 
D074 : LETTR I X 
D075: CHOPLIFTER 
D076: PENDU CHRON 
D077 : DECATHLON 
D07BS RUNNER 
D079 : TARGET 
DOBOs TANK 
D0B1 : TREASURE IS 
E001 s STI LL NACHT 
E002: CHANSON 
E003.' FRERE JAC 
E005S TONALITE 
E006: TRANSPOCLE 
E007 : PC BLUES 
EOOB : PRG ECRT MU 


Jeu de tennis a 2 joueurs jouant ensemble 

Il faut sortir du labyrinthe le plus vite possible 

Un classique. Détruisez le eur le plus rapidement possible 

Deterainer votre biorythae astral a partir des 3 courbes sur CE 150+commentaires 

Calculez votre esperance de vie statisque 

Retrouvez les joies de LAS VE6AS sur votre PC 1500 (les déceptions aussi !!l 
Simulation de Donjon et Dragon 
Jouez au 421 comme au bistrot 

fierez votre royaume avec ses habitants et ses richesses ainieres 

battez vous en duel contre le PC 1500 ou contre un autre joueur 

Jeu de logique pour reconstituer un daaier compose de lettres 

Vous devez atteindre la salle au trésor en évitant les dangers 

Conduisez un serpent qui s'allonge de plus en plus en lui faisant manger des oeufs 

Proaenez vous dans les piece d'un chateau pour y découvrir un trésor) GRAPHIQUE 

Un jeu de aeaoire visuelle ou il vous faut reconstituer des paires 

Célébré casse tete 

Casse tete plus sa resolution par l'ordinateur si vous abandonnez !! 

Essayez de trouver la sortie du labyrinthe. GRAPHIQUE 

Dessin anime décrivant l'arrivee en gare d'un train du far-aest 

Jouez au aorpion lOtlÛ . Très fort, trace sur CE 150 si elle est présente 

Coaprend 2 phases de jeu 

Un noabre impressionnât de aot en aeaoire pour ce pendu 
Trace sur la CE 150 une rose des vent 

Jeu de rôle. Retrouvez un trésor sur une ile. Un des meilleurs jeu de ce type 

Trace sur la CE 150 des graphismes suivant un coefficient que vous rentrez 

Etude sous forae ludique de la trajestoire d'un corps CE 150 

Tenez une conversation en Anglais avec votre PC 1500 qui vous répondra 

Dessin d'un nu sur CE 150 ou HATANABE MX 4671 

Essayez de rattraper un savon au fond de votre baignoire ... 

Dessin sur la CE 150 d'une tete de chouette 

Dessin sur la CE 150 d'un polygone décoré 

Dessin sur la CE 150 d’un superbe aacaron 

Dessin sur la CE 150 d'un motif rappelant la queue du paon 

Dessin sur la CE 150 d’une boule très décorative 

Dessin sur la CE 150 d’une croix très décorative 

Dessin de surface decoree sur CE 150 

Trace artistique de courbes différentielles 

Simulation d’une course de voiture sur votre écran 

Dessin a la CE 150 du célébré OBELIX 

Dessin de SNOOPY sur la CE 150 

Echappez au missile qui vous poursuit . Sur CE 150 

Dessin sur la CE 150 de la carte de FRANCE 

Dessin sur la CE 150 d’une mappemonde 

Deainez votre écran pour faire passer un paquebot 

Circulez dans un labyrinthe qui est visualise en 3D pour rechercher un trésor 
Conduisez votre locomotive au terminus en achetant l’eau et le charbon en route 
Dessin sur la CE 150 du grand frere du PC 1500 
Dessinez sur la CE 150 le célébré nom ! 

Dessin sur la CE 150 du buste d’ ASTERIX 

Dessin sur la CE 150 de moi meme !!! 

Dessin sur la CE 150 d’on superbe PICSOU 

Jeu d’aventure avec mode d’emploi en Japonais. Avis aux amateurs !! 

Jouez une partie de golf sur votre CE 150. Très belle simulation 
Jeu entièrement en langage machi ne sur votre écran 

Jeu en L M. Compatible paddle. Entourez la mouche avec le serpent . 2 joueurs 

Evitez que les aeches arrivent a l’explosif 

Faites passer les obstacles a votre fidele coursier 

Essayez de faire traverser l'écran a votre point sans vous faire écraser 

Retrouvez un maximun de chiffres sur ceux affiches au début 

Détruisez les envahisseurs qui infestent votre écran 

Détruisez le plus possible de soucoupes qui appairaissent a l’écran 

Essayer d’eteindre un feu avant qu'il ne vous brûle 

Calculez pour les mois a venir le temps qu’il va faire !!! 

Berer vos entreprises 

Se joue a deux joueurs. Jeu de réflexion 

Jeu célébré sur votre affichage 

Jeu pour les petits enfants. Retrouver un nombre de taupes affichées 
Essayer d’ajuster votre tir pour détruire un soucoupe 
Reconstituez un aot defini a l’avance 

Jeu graphique. Détruisez vos ennemis et récupérer vos amis au sol 
Une autre version de ce jeu. Le temps est chronométré 
10 epreuves pour tester votre forme. Epuisant !!! 

Une course de 100 H très graphique 
Apprenez a tirer a l’arc sur votre CE 150 
Vous 


Retrouvez un trésor dans l’ile. Pas de a 
Mélodie 
Mélodie 
Mélodie 

Calcul d’une tonalité avec trace de la g 
Transposition d’une de en une autre ave 
Mélodies en LM. SUPERBE !! 

Programme d’ecriture musicale 

li t x i — ï ~r <=» ï r~< e s 


t d’emploi ! 


trace de la gamme 


Ko. 
Ko . 
Ko . 
Ko . 
Ko. 
Ko. 
Ko. 
Ko . 
Ko. 
Ko . 
Ko . 

2 Ko. 

4 Ko . 

B Ko. 

A Ko. 

4 Ko. 

4 Ko. 

2 Ko. 

4 Ko. 

B Ko. 

2 Ko. 
16 Ko. 
2 Ko. 
16 Ko. 
2 Ko. 

4 Ko. 

B Ko. 

B Ko. 

2 Ko. 

4 Ko. 
Ko . 
Ko . 
Ko . 
Ko. 
Ko . 
Ko. 
Ko . 
Ko . 
Ko . 

4 Ko. 

2 Ko. 

4 Ko. 

8 Ko. 
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B002 s DATEUR 
B003: CALPE 
B004ï OPECAL 
BO06: LETTRES REL 
B007 : QRDIROUTE 
BOOBï SAVERAM 
B 00 9 * COMPT ARDT 
BOlOî COMPTENNIS 
BO 11: GESCASSETTE 
B013SLGN BRISEES 
BO 1 4 ! STAT LOTO 
BO 1 5 s F I CHES TEL 
B016! GFICHES 
BO 1 7 s EDI T ADRES 
BOlBs SUPERDRIVER 
BO 1 9 ! PLM 
B020S DESSIN 
B021 : INKEY# 
B022.-BIDI LIST 
B023ï SCROLLINGS 
B024: ROULEAUX 
B025: UTILAFF 
B027! MAD 
B029: CODEX 
B030 ï DES CE 15B 
B03 1 : BAS I C 1501 
B032ï ETIQUETTES 
B033 : BAS I QUO I S 
B034 s BAS I C ETEND 
B035S GRAPH 3D 
B036: MONITEUR 
B037 : GESTION ERR 
B03BS CHECKSUM 
B040 ï DEMERGE 
B04 1 ï DUMP ROTI 
B042! GRAPHOCOLOR 
B043S TITRE K7 


Imprime la date sur vos listings 
Edite un calendrier de l’annee de votre choix 
Effectue des operations sur les dates 
Ecriture en relief sur la CE 150. Très beau 
Tout sur votre parcours de voiture 

Permet de stocker des programmes en RAM et de les récupérer ensuite 

Permet de compter les points au tarot 

Permet de compter les points au tennis 

Bestion d’un fichier pour vos programmes sur cassette 

Trace d’un graphe par le système des lignes brisees 

Traitement statistique des résultats du loto 

fiestion d’un fichier téléphonique 

6estion de fichier paramétrable 

Edition sur la CE 150 d’une étiquette a coller sur l’enveloppe 
Nouvelle gestion du clavier -REPEAT BEEP ANSNER - LM 
Editeur de langage machine en 2 80 

Utilitaire d’aide au dessin sur l’ecran-Possibilite de dessins animes 

Routine LM créant un super INKEY» acceptant plusieurs touches ensemble 

Listing bidirectionnel d’un programme sur CE 150 en 80 colonnes LM 

4 routines LM faisant les 4 types de scrolling 

4 routines LM faisant defiler l’écran en rouleau 

4 routines LM destinées a améliorer les possibilités d'affichage 

Moniteur Assembleur Desassembleur en mnémoniques officiels 

Codage et décodage de messages d'apres une de 

Desassembleur en mnémoniques officiels sur deux colonnes avec CE 15B 

33 nouvelles fonctions BASIC pour votre PC 1500 

Copie d'écran paramétrée sur CE 150 

Redéfinition des fonctions BASIC en Français 

3 nouvelles fonctions BASIC pour votre PC 

Définition d’un objet en 3D et représentation sur CE 150 

Moniteur hexadécimal servant a rentrer les programmes du bulletin 

Nouvelle gestion des erreurs 

Permet de récupérer un programme apres un NEN ou ERR0R 44 
Permet de supprimer l’effet d’un MER6E 

Effectue un DUMP en RQTATE 1 ce qui augmente la lisibilité CE 150 

Présentation de pages sur MINITEL de preference couleur 

Edition d’etiquettes a mettre sur vos cassettes pour voir leurs contenus 


ENSEI I GNEMENT 


A002 x COMPLEXES Effectue toutes les operations sur les complexes 

A003S RACINE POL Calcule la racine d’un polynôme 

A004S BALISTIQUE Calcule et trace la trajectoire d’un projectile CE 150 

AO055 TR I ANGLE Calcule et trace un triangle defini par trois paramétrés CE 150 

A006 : HYPERBOL I Q Donne accès aux fonctions hyperboliques 

A007: CORRELATION Calcule diverses corrélations (logarythmique 

AOOS x RES . EQUAT I O Resolution des équations algébriques 

A009 x CON V . COORD Conversion de coordonnées d'un repere a un autre 

AO 1 O s SC I ENT I BAS Donne accès a de nouvelles fonctions scientifiques BASIC LM 

AOl l : NB. PREMIERS Petit utilitaire calculant les nombres premiers 

AO 1 2 : COMP . FNC Autoprogrammateur acceptant toutes les fonctions 

AOl 3: HEX . DEC Traduction de l’hexadecimal en décimal a l’interieur d’un programme 

AO 1 4 : FACT . NOT . SC Calcul d’une factorielle en notation scientifique 

AO 1 5 : F ACT . PREC I S Calcul d’une factorielle avec tous les chiffres 

AO 16: ZERO FNC Calcule le zéro d’une fonction 

AO 1 7: HP 41 Simulation d’un HP 41 en mode calcul (piles et nombreuses fonctions ) 

AO lBs POL YNOME Traitement de polynôme sous forme algébrique 

AO 1 9 : AR I THMET I Q Traitement arithmétique de données 

A020: DERI VATEUR Calcule la derivee en littéral d’une expression algébrique 

A02 1 : SYRACUSE Calcule la distance d’un nombre pour le problème de Syracuse LM 


r> I VEIRS 


BOOl ! TYPE WR I TER Mini traitement de texte sur CE 150 multidirectionnel et en couleur 


COOl ! 
C002 ï 
C003 ’ 
C004 î 
C005 s 
C006S 
C007: 
COOS: 
CO 10: 
COI 1 : 
CO 1 2 : 
CO I 3: 
CO 14: 
CO 1 6 : 
C020 : 
C02 1 : 
C022 : 
C023 : 
C024 : 
C025 s 
C026 : 
C027 : 
C028 : 


ANIM. VENTE 
RENT. INVES 
PLAN EPARG 
INTERET COM 
AMORT.EMP 
COMPTA ANA 
RAP. B ANC A I R 
SALLE VENTE 
POLAR I S . AMP 
TAB. VERITE 
ACCI . TR A VA I 
GES. CABMED 
ANA. PARETO 
DRAGAGE 
EPHEMERIDES 
CALCSHARP 
VENTILATION 
CAL. FINANC. 
NAVEASTRO 
OSCIL. AMORT 
RLC SERIE 
JUPITER 
F0KKER27500 


Programme d’animation des ventes 
Calcul de la rentabilité d’un investissement 
Calcul du revenu d’un plan d’epargne 
Calcul des interets composes 

Calcul de l’amortissement d’un emprunt 

* 

Bestion de comptabilité analytique avec graphismes 

Vérification des comptes bancaires 

Bestion d’une salle des ventes 

Etude de la polarisation d’un ampli 

Etude d’une table de vérité en électronique 

Calcul du coût des accidents du travail 

Bestion d’un cabinet medical 

Analyse de PARETO + trace sur CE 150 

Calcul de terrassement par dragage + trace sur CE 150 

Calcul des ephemerides des planètes et étoiles 

Reprend le système des CALC + trace 

Ventilation des ventes 

Effectue toutes sortes de calcul sur les emprunts 

Calculs pour la navigation astronomique 

Calcul et trace de l’amortissement d’un oscillateur 

Calcul d’un circuit RLC en sérié et trace 

Position des satellites de Jupiter a un moment précis + trace 

Calcul du carburant et du temps de vol sur F0KKER 27/500 
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SC I ENT IFI QUES 
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BULLETIN D'INSCRIPTION AU CLUB DES SHARPENTIERS 


□ Je m'inscris 

au CLUB DES SHARPENTIERS 

Je bénéficie de tous les 
avantages du CLUB 

Je suis abonné pour 1 AN 
au BULLETIN du CLUB 

Je vous joins mon règlement 

□ FRANCE: 160 F 

□ ETRANGER : 200 F 

CHEQUE N° BANQUE 

SIGNATURE 


NOM PRÉNOM 


ADRESSE , 


CODE POSTAL / VILLE . . . 


PROFESSION 


MACHINE POSSÉDÉE DEPUIS 


ACHETEE CHEZ 


UTILISATION PRINCIPALE DE VOTRE MACHINE . 



Club des Sharpentiers 151/153, avenue Jean-Jaurès 93307 AUBERVILLIERS CEDEX Tél : 834.93.44 

_ _ — .. 


